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MICRO-80 is an international magazine devoted entirely to the Tandy TRS-80 microcomputer and the 
Dick Smith System 80/Video Genie. It is available at the following prices (all prices shown in 
Aus.$ except for U.K. prices which are in pounds Sterling). 



12 months subscription 



Single Copy 



Months programs on cassette 



(at present available from Australia only) 
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Special bulk purchase rates are also available 
issue to order your copy or subscription. 



to computer shops etc. Please use the form in this 



The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most. of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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********** EDITORIAL ********** 

*** TANDY MODEL III IN AUSTRALIA *** 

Rumours abound concerning the arrival of the Tandy Model III into Australia. Officially, Tandy 
expfects to release the Model III in May. Also officially, the Model I will continue. 
Unofficially, the Model III could well be released earlier, although that will be subject to 
shipping delays etc. Also unofficially, we believe that, shortly after the release of the Model 
III, the Model I will be dropped completely from Tandy Australia's range. 

The price for the Model III has not yet been announced by Tandy. Our information is that the Level 
I/4K machine will sell for $100 more than the Model I Level I/4K; ie. $799. The 32K dual disk 
drive version is likely to sell in the $2600-$2800 range. Whilst these prices are still above 
those in the USA (LI/4K is US $649), they are closer than previously and are another indication 
that Tandy is changing its pricing policy for the better. 

What about software compatability? News coming out of the USA indicates some potential problems 
here. Firstly, Model I machine language programs which make use of ROM calls are almost certainly 
going to be useless on the Model III. There are even indications that some BASIC programs may 
present problems. Devices such as the Exatron Stringy Floppy will also need some substantial 
redesign since the 2K gap in the memory map which is used for the operating system just does not 
exist in the Model III which has a 14K BASIC interpreter rather than 12K as in the Model I. 
MICRO-80 has a model III on order in the USA (on back order actually!) and we are eagerly awaiting 
its arrival. Naturally, we shall inform all our readers of its capabilities and characteristics at 
the earliest opportunity. 

*** SYSTEM 80 DEVELOPMENTS *** 

Nor is the Dick Smith organisation being ignored by the rumour-mill although we are less certain of 
the reliability of our information in this case. One story is that there will soon be a super 
SYSTEM 80 all in one piece a la the Tandy Model III. Another part to this rumour suggests that 
this machine will have an Exatron Stringy Floppy installed as standard. Still other rumours 
suggest a colour model. In terms of hard facts, the Dick Smith organisation has sold over 2000 
SYSTEM 80 's since their introduction in May 1980. That is an average of about 300 units per month 
which, we guess, could be a little disappointing to D. S. E. 

Tandy is very secretive about its level of sales but it is difficult to believe that it could be 
less than D. S. E.'s. Our guess, and it is a guess, is that Tandy is selling 500-600 Model I units 
per month. Anyway, whatever the true figures, it is clear that microcomputing in Australia is 
growing rapidly although not as explosively as it has in the USA and the UK. 

*** MICRO-80' s NEW PREMISES *** 

MICRO-80 is bursting at the seams, as any of our Adelaide readers who have visited us could 
attest. We have therefore decided to move the whole operation into our new premises at 433 
Morphett Street, Adelaide where we originally intended to locate just the MICRO-80 Computing 
Centre. As you can imagine, this is a fairly major operation and has been consuming a considerable 
amount of our time over the past few weeks. The effect has been to delay the publication of this 
issue and many of our readers who have telephoned have found that the telephone answering machine 
is in operation for much of the time. We hope you will continue to be patient for a little longer 
until we get the extra space and staff we need, when we will be able to have the 'phone manned by a 
human during normal business hours and your Editor will be able to spend much more of his time 
actually editing the magazine. One effect of the move will be a change in our'phone number during 
business hours. As soon as we have the new number manned, we will announce it on the telephone 
answering machine. So, if you are in the habit of hanging up the moment you realise that there is 
an answering machine on the line, perhaps you had better hold on a little longer to hear the number 
to call . 

In the meantime, we are happy to announce the appointent of Fred Miller as Sales Manager. Fred has 
had considerable experience in servicing customers in a number of different industries and is very 
familiar with the TRS 80/SYSTEM 80. Fred will take responsibility for the MICRO-80 Computing 
Centre and also the MICRO-80 PRODUCTS mail order business. We are sure that Fred will quickly 
become a part of our team and will improve the standard of service to our customers even further. 

*** THIS MONTH'S MAGAZINE *** 

There has been a great deal of interest in the machine language programs we have published in past 
issues. So this month, we have published two ml. programs, both well documented and commented. A 
well -commented assembly language source listing takes a lot of space so one or two other features 
have had to be held over to make room. These include Disk Drives - Questions and Answers (Part 3) 
and Input/Output. These will return next month and, of course, we are also expecting the next 
instalment of GT BASIC for that issue. 
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REVIEW OF ESCON SELECTRIC CONVERSION by David Grigg 

Ever since I bought my TRS-80, one of the main uses I have had in mind for it was as a word 
processor. In my spare time, I am a fiction writer and as I am also carrying out a correspondence 
course at university level, I end up doing an awful lot of typing. I've had a typewriter since I 
was 12 years old, so by now I ought to be able to type fairly well. But like all typists, I make a 
lot of mistakes. And every time I made a mistake when I was typing a clean final copy of a story 
or an essay, I would have to stop, use white-out fluid, wait for it to dry, type over the mistake 
and only then carry on typing again. This slowed me down enormously. So the idea of a word 
processor certainly appealed to me. 

I have owned an IBM Selectric typewriter for about five years and found it an excellent machine. 
So when I bought the TRS-80, and found out that there was a way to hook up the computer to the IBM, 
I was very pleased. There was only one problem and that was the cost. I had to wait for a year 
before I could save enough for the conversion (after all, I had just gone out and spent $1000 on 
the TRS-80!). K 

In August last year, however, I finally had enough. 

The Escon conversion to the Selectric is marketed by ASP Microcomputers, of East Malvern, Victoria. 
The complete conversion kit, including solenoid assembly, manuals and Universal Interface, cost 
(last I heard) $729. If you want ASP to install the solenoids in your typewriter, it will cost you 
an extra $100. Now, here's the first point. That extra $100 is well worth it. I attempted to 
install the solenoids myself, much to my later regret. 

The advertising for the conversion says that it takes about 4 hours to install the solenoids and 
adjust them. I think that's 4 hours for their own expert, who installs two conversions a day 
Five evenings after I first opened up the IBM and started unscrewing, attaching, hooking and 
soldering, I had the typewriter printing alright. Printing garbage! The thought -of any further 
work, especially delicate adjustment, was beyond me. I sent the typewriter to ASP and let them 
finish off the adjustment. 

It was probably a good thing that I did because my slightly aging IBM decided that it didn't like 
all this fiddling around with it and developed a fault of its own, unrelated to the solenoid 
additions but I think, related to the movement and joggling that it had been getting. An IBM 
service call fixed that (a point very much worth noting is that IBM will honour their service 
agreements on ESCON converted typewriters). But if that problem had occurred while I was working 
on the machine, I probably wouldn't have figured out what was going wrong. 

Certainly, I spent rather more than $100 worth of frustration and anxiety in trying to install the 
solenoids myself. But then, I am not a very handy person, nor are my mechanical skills very good. 
If you are used to disassembling motorbikes, clocks or typewriters, you may well save yourself 
something by doing the conversion yourself. 

How well does it work now the solenoids have been installed? Well, there's now a little black box 
between my cassette port and my cassette deck, with a switch on it which has to be selected between 
TAPE and PRINT. And between that box and the typewriter, there's a large blue box, with lots of 
electronics in it (including a 6502 microprocessor). That sounds like a lot of hardware but it 
doesn't take up much room on the desk and it works beautifully. Given a tiny software driver, I 
can LPRINT or LLIST immediately. And given the excellent TASP program marketed by ASP for the 
Exatron Stringy Floppy (there are disk and cassette versions, too), word processing is a snap. 

The TASP wp program, written by Peter Darling, is really an excellent piece of work. I haven't had 
any experience with Tandy's SCRIPSIT but I have with Electric Pencil and as far as I'm concerned 
TASP beats Pencil easily, and it's cheaper, too! TASP enables you to enter formatting commands 
along with text so that, for example in an essay, you can set all quotes in indented margins with 
very little effort. Justified margins, if you want them, of course; hyphenation or not, as you 
will; page headings and automatic page numbering, again optional; pro-forma letters with changing 
inserts; you name it, 1ASP has it. Indeed, the main problem is becoming familiar enough with the 
manual. Text is entered straightforwardly, with a destructive backspace key. One feature TASP 
omits deliberately is that annoying Pencil habit of cutting off letters when you are typing fast at 
the end of a line: the screen is just considered to wrap around, which doesn't take much qettinq 
used to. 3 3 

TASP also has an excellent editing feature, which allows you to insert, delete re-order lines 
search for particular letters, just about everything Pencil has and possibly more.' These functions 
are based on an extended set of the normal Microsoft editing commands for BASIC text (TASP text is 
stored automatically as BASIC program lines). A delight to use. 
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And the whole system, together? Well, this review has been written and edited using TASP and 
printed out using the ESCON conversion to my IBM. I wouldn't write any other way. 

I'm not certain of this, but I'm fairly sure that TASP would work equally well with other printers 
than the ESCON converted Selectric. Price is about $75. (David is right about the price - TASP is 
available from MICRO-80 PRODUCTS - Ed.) 

- 00000000000 - 

ESCON - PLUS SCRIPSIT - A FEW COMMENTS by David D. Harris 

With a small business having a typing requirement which is ideal for word processing, I set about 
finding the cheapest, reliable way of achieving it. After some research I purchased a TRS-80 
(Model 1) using Tandy's scripsit W/P program. As a printer I use an IBM Selectric typewriter which 
I already owned, converted with an Escon interface unit. 

In general, I am yery happy with this set-up. Scripsit is very versatile, easy to use and bug-free 
and deserves all of the praise it currently seems to be getting. 

The Escon interface? Ah, thereby hangs a tale! 

I bought the interface from Computer Marketing, the S.A. agent for ASP Microcomputers. I elected 
to install it myself. I am only moderately handy but succeeded in having it running after about a 
day of work. The instructions are quite explicit and, although adjustment is rather critical, it 
is not difficult. 

It is a little frightening having to delve into the bowels of the typewriter to install the driving 
solenoids but it is very instructive in showing how the IBM typewriter works. This knowledge has 
come in handy since! 

As an overall operating system my experience is that the Escon/Selectric set-up has some plusses 
and some minuses. 

On the plus side - 

The Selectric is a very good and highly developed typewriter. It has available 
a wide range of type faces and has a full IBM service back-up which is 
unaffected by the installation of the Escon interface. 

The Selectric can be used as a typewriter when standing alone and also when . 
connected to the computer - even when the computer is outputting to it so long 
as printing is halted at the time. This is very handy for underlining, 
correcting minor mistakes etc. 

On the minus side:- 

I feel that the reliability of the electro-mechanical part of the interface 
(the solenoids and linkage) is marginal for routine use in an office. I have 
had two links break, as well as occasional problems with, for example, links 
touching sound absorbing pads within the typewriter. This is not too bad if 
someone handy is around to replace a link (about a half hour job when you've 
done the first one), or otherwise trouble-shoot the occasional problem. 

Another irritation, applicable to any typewriter conversion and certainly not a 
fault of Escon, is that printing is very slow. The first time you operate the 
printer, its 15 characters per second seems fast. When you get used to it and 
you realise that it takes around 4 minutes to print a page you long for 
something with dot-matrix printer speed and typewriter quality. Unfortunately, 
ain't no such animal . 

I have added two features to the system which make it more appropriate to an office environment - 

A heavy-duty plug in the data cable. This allows the typewriter to be easily and frequently 
unplugged from the computer and moved around the office, which is necessary for stand-by use as a 
pure typewriter. Incidently, NEVER unplug it while the computer is switched on unless you enjoy 
replacing burnt-out diodes! 

An IBM sound absorbing kit. Without this it is just too noisy for an office. Somehow it seems 
noisier as a printer than as a pure typewriter, or maybe it's just the fact that its operation is 
continuous. 
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When used with Scripsit the Escon system has a whole further range of idiosyncracies, all of which 
boil down to the fact that it does not recognise the end-of-line marker as requiring a line feed 
(ie, rotation of the typewriter platten) unless it has at least one character before it in the 
line. This means that many of the goodies mentioned in the Scripsit instruction manual don't work 
as the book says. These include - 

Line feeds from a succession of "Enter" key-ins. 

Paragraph Format (PF) instruction. 

Header and Footer blocks. 

Top and bottom margin settings, etc. 

Some can be made to work by inserting a space before the line end marker and in fact, for my use 
this is perfectly adequate to get almost all I could want out of Scripsit. It remains as a minor 
annoyance. 

I have now been made aware that this problem can be fixed by. 

Machine language patches, of which I now have a large collection. 

Getting a replacement PROM from Escon which is designed to fix the problem. I know a number of 
people who have solved it this way. However, the PROM I received from Escon does not work. We are 
still negotiating! 

Buying the most recent Escon interface which no longer seems to have the problem. These have only 
been available in Australia for a few months, I believe. 

Overall, I would have to say that the Escon interface does the job very well so long as it is not 
to be left to a junior typist to operate as an idiot-proof system. If used by its owner, and 
especially if the owner installed it, it does all one could ask at a reasonable price. 

Its other giant advantage is its use of the IBM typewriter. Without the ready availability, 
reliability and service back-up of this unit together with the range of type faces, ribbons etc. 
which are available for it, the Escon system would not be so attractive. 

What are the alternatives? Well, in the USA there are other IBM Selectric conversions but Escon is 
the only one I know of which is available in Australia. Don't overlook the fact that American 
electricity is llOv, 60Hz. 

Tandy's Daisy Wheel printer is about twice as fast but does not have the versatility (as it can't 
be used as a pure typewriter) and costs about half as much again as the Escon interface plus a NEW 
Selectric typewriter. Most people don't buy a new one but convert an existing or second-hand 
typewriter which usually saves a lot of money. 

If you need typewriter quality output, that's it. 

So far, not much has been said about-Scripsit. In this article it won't be! Suffice it to say 
that I am using it in an office where W/P must pay its way. Scripsit does this admirably even 
within the basics covered in the Instruction Book. However, once fluency is gained with it and a 
little creative thought is applied, there is a whole area of versatility beyond the basics which 
makes it a delight to use. 

(David has recently taken delivery of an OLIVETTI ET-121 typewriter with MICRO-80 interface. Once 
he has had time to familiarise himself with this machine, he has promised us an objective review of 
that, too - Ed.) 



$79.95 + $2.00 P&P 

There was so much interest shown in the LNW Research expansion project described in 
September's MICRO-80 that we decided to import the boards to Australia. They proved so 
popular that the tirst batch sold out within 12 hours of landing! We are in stock again, so hurry, 
while they last. These boards are the basis for a high quality, reliable expansion interface for 
the TRS-80 (or the SYSTEM 80 via our SYSPAND-80 adaptor). At present we are offering the boards 
with their comprehensive construction manual. By next month, we will be able to offer modular 
kits of components and fully built up and tested units. The design of these boards is tried and 
tested. An expansion interface built around one costs $100's less than an equivalent Tandy or 
D-S interface. 
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***** READERS' REQUESTS ***** 

This column is a regular feature of MICRO-80. In it, we list all those articles, programs, etc. 
requested by our readers. We invite contributions from Readers to satisfy these requests and will, 
of course, pay a publication fee for all articles, programs etc. printed. As a guide, we will pay 
a minimum publication fee of $10 for any article or review published. In the case of software 
reviews, we will aim to pay in accordance with the value of the program, up to a maximum of $25. 
So, if you write a good review which we publish and the usual selling price of the program in 
Australia is $19.95, then we would pay you $20. In that way, the successful reviewer will get the 
program he reviews, free. (Make sure you include the selling price in your review). 
Unfortunately, we cannot afford that policy on hardware(!) so we will pay in accordance with the 
merits of the review - generally of the order of $25. Submission of a review for publication 
automatically means that you are prepared to accept the figure we decide to pay you and no 
correspondence will be entered into. Payment will be made within 30 days of publication. 

** ARTICLES ** 

- File handling on the '80 

- Description of the functions performed by the Expansion Interface 

- Reviews of '80 compatible printers 

- Reviews of commercially available software (including that produced by us!) 

- Reviews of commercially available hardware 

* How to SAVE onto Disk, programs such as Analogue clock and Touchtype 

* A master index to the appropriate sections in the Tandy Manuals in Level I, Level II, DOS etc. 

- Comparative reviews of disk drives 

- How to convert a Level I program to Level II 

- A simple guide to using Level I Arrays 

* Review of Dunjonquest program 

- An explanation of how to make full use of USR, PEEK and POKE statements 

** SOFTWARE ** 

* A m.l. program to enable the break key to work like RESET when using an expansion interface 

- Stock market program 

* Horse racing system 

- "Files" program modified for 48K system 

- Morse code decoder 

- Sub-routine FOrum 

- Program to "SET" non-graphical symbols 

- A new STAR-TREK game 

- Conversational programs (like Eliza) 

- 3D programs (such as a maze seen from the inside) 

** HARDWARE ** 

- Interfacing the '80 to external hardware 

- Review on the performance of line filters 

- Real Time clock 

* Radio Teletype/Morse interfacing 

- RFI (Radio Frequency Interference) suppression 

- Interface for a Teletype printer 

Note:- An * denotes that we already have some suitable material on hand for this topic. 

- 00000000000 - 



Daisy Wheel Typewriter/Printer 

MICRO-80 has converted the new OLIVETTI ET-121 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-121 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET-121 driven by a TRS-80. Write and ask for full details. 




ONLY $1995 INC. S.T. 
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***** MICRO-BUGS ***** 

In which we correct those errors which seem to creep in, no matter how careful we are. 

Well not really bugs this month, rather modifications which will allow previously published 
programs to run on the SYSTEM 80 as well as the TRS-80. We have had letters from a number of 
readers with similar information. This one from David Weaver was one of the first to arrive, so we 
have published it. We thank all those who took the trouble to write in. 

** AMENDMENT TO RON SULLY' s SOUND EFFECTS PROGRAM (July 1980) ** 

Although both the TRS-80 and the SYSTEM 80 use address FFH as the cassette port with bits BO and Bl 
for the data, the machines differ in their use of bit B2. In the TRS-80, B2 is used solely for 
cassette motor control. In the SYSTEM 80 it is also used to enable data paths to both recorders. 
UNLESS this bit is set high (B2=l) in the SYSTEM 80, NO OUTPUT DATA can pass from the computer to 
the external recorder socket and NO INPUT DATA can pass from the internal deck to the computer. 
BIT B2 MUST be set high EACH TIME OUTPUT DATA is fed to port FFH. 

To alter SOUND EFFECTS to run on a SYSTEM 80, change Line 10 as follows:- 

10DATA221, 33, 36, 67, 221, 78, 0,1 21, 183, 200, 221, 70, 1,62, 5, 21 1,255, 16, 254, 221, 70, r,6,'211, 255, 16, 254, 13, 19 
4,253,66,221,35,221,35,1,255,255,33,48,0,9,218,29,67,195,247,66 

This alteration keeps bit B2 high by changing BO value from 1 to 5 and the Bl value from 2 to 6. 
If no change-over switch is fitted to the the SYSTEM 80 to change cassette ports then OUT 254,255 
must be typed in. 

** AMENDMENT TO C. E. KENDALL'S KEYBOARD BLEEPER PROGRAM (November 1980) ** 

This program requires the same alteration as SOUND EFFECTS. To alter KEYBOARD BLEEPER, change Line 
40 to:- 

40 DATA 

195,96,64,205,227,3,183,200,8,14,20,68,62,5,211,255,16,254,68,62,6,211,255,16,254,13,32,239,8,201,20 

5,127,10,205,101,64,201 

Again, if no switch has been fitted to change over the cassette ports, then OUT 254,255 must be 
typed in. 

** ALTERATION TO RUN John Peschar's DRAW II PROGRAM ON THE SYSTEM 80 ** 

David also included this alteration in his letter. DRAW II requires the use of the forward arrow 
key which is not present on early SYSTEM 80' s. This modification makes use of the GREATER THAN and 
LESS THAN keys instead of the forward and back arrow keys. There is no reason why these 
modifications should not work equally as well on a TRS-80. 

To alter DRAW II, make the following alterations to Lines 10, 40, 70, 130, 140, 240 and 250. 

10 CLS: CLEAR 500: DEFINT X,Y,B-Z: DEFSTR A : SET(X,Y): V=14400: W=14368 

40 IF B-91 OR B+10 OR B+46 OR B-44, F=0 ELSE IF B=26 OR B=27 OR B=60 OR B=62, F=l 

70 IF B=108 THEN 500 ELSE IF B-115 THEN 400 ELSE IF B=99 THEN CLS ELSE IF B=110 THEN 600 ELSE IF 
B=100 THEN 300 ELSE IF B=114 THEN Al="" :C=0 

130 IF (B=60 OR B=44) AND X-1>=0, X=X-1 

140 IF (B=62 OR B+46) AND X+K-127, X=X+1 

240 IF (PEEK(W) AND 16)=16 AND X-1>=0, X=X-1 : E=l 

250 IF (PEEK (W) AND 64)=64 AND X+l<=127, X=X+1 : E=l : RETURN ELSE RETURN 

** ALTERATION TO RUN A. F. WEST'S SOUND PROGRAM ON THE SYSTEM 80 (July 1980) ** 

Allan Smyth was another reader who sent in similar amendments to KEYBOARD BLEEPER. In addition, he 
included the following amendment to SOUND to enable it too to work on the SYSTEM 80. First, add 
OUT 254,16 to your BASIC program then, at the bottom of page 43, change the line of HEX to:- 

7FE0 00 00 CD 7F OA 3E 01 OE 00 IE 04 00 00 45 2F E6 
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***** -80 USERS* GROUPS ***** 

The following is a list of '80 Users' Groups. If you have a group that is not included here 
please let us know about it so that we can publish details. Owners of System '80s are welcome at 
all the groups. 

BRISBANE: Contact: Mr. Lance Lawes, 
Tel: Home (07)396 2998 

Bus. (07)268 1191 Ext. 15 
MEETINGS: 1st Sunday of the month at 2 p.m. at 21 Rodney St. Lindum,4178. 

MELBOURNE: EASTERN SUBURBS - 1 

Contact: Mr. John Fletcher, 89 0677 between 9-4 

EASTERN SUBURBS - 2 

MEETINGS: 3rd Wednesday of the month at Kingswood College, 355 Station St. Box Hill. 

NORTHERN AND WESTERN SUBURBS COMPUTER USERS GROUP 

MEETINGS: Every 2nd Thurs. at 7 pm. at 142 Pascoe Vale Rd., Moonee Ponds 
Contacts: David Coupe (03) 370 9590 
Clive Budd (03) 370 2917 

FRANKSTON: PENINSULAR GROUP 

(Vic) MEETINGS: 2nd Tues. of the month (except Jan.) 
Contact: M.G. Thompson (03) 772 2674 

GEELONG: GEELONG COMPUTER CLUB 

MEETINGS: 2nd Tues. of the month at TYBAR Engineering, Hampton St. Newtown 
Contact: The Geelong Computer Club, 
P.O. BOX 6, Geelong, 3220 

DARWIN: Contact: Tony Domigan, P.O. Box 39086, 

Winnellie, N.T.5789. 

ADELAIDE: Contact: Rod Stevenson, 51 5241 between 9-4. 

CANBERRA: MEETINGS: 3rd Thurs. of each month at 7.30 pm in:- 

Urambi Village Community Centre, Crozier Circuit, Kambah. 
Contact: Bill Cushing, 10 Urambi Village, Kambah, ACT 2902. ('Phone 31 6399) 

TOWNSVILLE: TOWNSVILLE AMATEUR RADIO CLUB 

MEETINGS: 2nd Tues. of the month at 7.30 pm at:- 

The State Emergency Service Headquarters, 

Green St., West End. 
Contact: F.G. Sturges, P.O. BOX 5100 MSO, Townsville 

** UNITED KINGDOM ** 

NEWCASTLE: NPCS (Newcastle Personal Computer Society) 
Contact: John S. Bone 0632 770036 

** NEW ZEALAND ** 

AUCKLAND MEETINGS: 1st Tues. of each month at:- 
NZ Solenoid Co. Ltd., 
28 Kalmia Street, Ellerslie, Auckland. 

- 00000000000 - 

***** INPUT/OUTPUT ***** 
FROM: Ron Kehn, 27 Guys Rd., Korumburra, Vic. 3450 

Ih re ™S t lX P urChaS6d an R ? 232 board for my TRS ' 80 expansion interface. It was my hope to connect 
m nua bu I 2 'un^V^V' 12 ? J? r1nte ^ J COpied the software I/O drive/as er the 
TRS si th t m «IU° 9 aching printed out. If you (or any reader) have attached the 
and/or hardware! ^ appreciate hearing what you did to modify the software 

(If any reader has solved this problem, perhaps they would contact Ron direct - Ed.) 

- 00000000000 - 
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***** MARKET PLACE ***** 

Market place is available to any reader who has hardware to dispose of. An entry costs nothing - 
you pay MICRO-80 $5.00 or 5% commission, whichever is the greater - up to a maximum of $30, after 
the goods are sold. The commission is calculated on your advertised price. 

EXATRON STRINGY FLOPPY, excellent condition. Includes wafers. ***** $300 ***** 
Phone (089) 89 6016 (Business) ask for Peter Quinn 

SYSTEM 80 L2/16K + Dick Smith monitor + Address/Mailing list and Airmail Pilot programs. This 
equipment is only a few weeks old and in perfect condition. Total list price of hardware and 
software is $951.50, will sell for: 

***** $850 ***** 
P. S. Martin, 191 Stuart Street, Blakehurst NSW 2021 Phone (02) 546 7090 

Radio shack QUICK PRINTER: 150 LPM on 4.75" wide aluminised paper. Software selectable 80, 40, or 20 
characters per line. Upper-case and lower-case with full descenders. Automatic underlining. 
Seldom used and in excellent working order. Catalogue price $699. Will sell for: 

***** $4oo ***** 
Mike Riley, 15a Hunter Street, Lakes Entrance Vic. 3909. Phone: (051) 551812 Bus. (051) 552216 (AH) 

MICR0LINE 80 DOT MATRIX PRINTER: excellent condition with printer cable, ready to plug into bus 
extender and go. Full graphics, 3 print sizes and detailed instructions and tips. 

***** | 8 5o o.n.o. ***** 
Mr. J. F. Lamich, 116a Raglan Street, Mosman, NSW 2088. Phone: (02) 411 7166 Bus. hours. 

- 00000000000 - 

***** SOFTWARE SECTION ***** 

SHOOTING GALLERY (L1/4K) by C. Stobert 

The game starts by first drawing some reeds at the bottom of your screen. The sub-routine for this 
starts at Line 800. At Line 250, each shooting position is placed on the screen (in the space 
between each set of reeds). Lines 320 to 350 decide where the ducks are to appear whilst Lines 360 
to 370 place them on the screen. Line 410 is the start of the INKEY simulator. For new readers, 
this is done by SETting various points on the screen, placing the cursor so that, if a certain key 
is pressed, one of the points is overwritten by the cursor, then acting according to whichever 
point is missing. Line 415 is testing point (3,0). If (3,0)=1 (ie. if it is ON), 415 is repeated. 
If (3,0)=0 (ie. if it is OFF), the program drops to the next line. As you can see from the REM 
statement at Line 500, this is the start of the shoot trace. L is the next position on the Y axis 
and P is the next position on the X axis. Line 520 increments P and then decides whether there is 
a duck present at the next position to be occupied by the bullet. This test is not really 
necessary. It has been added to demonstrate that you can make your '80 look for a duck before the 
bullet actually gets there. Line 540 tests each point adjacent to the bullet, horizontally (that 
is why the earlier test is not necessary). If one of the ducks is hit, then Line 600 is used. 
Line 680 decides whether there has been an even number of hits. Happy shooting! 



1 REM C. STOBERT 

2 REM 21 SHERWOOD CRS. NTH. DANDENONG UIC. 3175 
10 C. 

20 P. A. 209, "<<< SHOOTING GALLERY >>> 

30 F. I=1T075:J=R.C32767):N.I 

40 D. 5, 1,15, 2, 46, 3, 60, 4, 960, A, 992, B, 1014, C 

50 C. :P.:P. "TWO DUCKS WILL APPEAR ON THE SCREEN 

60 P.:P."YOUR FIRING POSITIONS WILL APPEAR ON THE 

70 P. "BOTTOM OF THE SCREEN 

30 P.: P. "WHEN THE DUCKS APPEAR 

30 P. "YOU FIRE BY PRESSING THE APPROPRIATE KEY 

100 P. : P. : I. "PRESS < ENTER > TO CONTINUE ";A$:C. 

110 F.N=1T07:READA,AS 

130 P. A. A, AS; :N.N 

140 P. A. 128, "PRESS < ENTER > TO SHOOT ON LINE B-1":P. 

150 P. "PRESS <SPACE> TO SHOOT ON LINE B-4":P. 

160 P. "PRESS <D> TO SHOOT ON LINE C-2":P. 

170 P. "PRESS <C> TO SHOOT ON LINE fi-3":P. 

180 P.: I. "PRESS < ENTER > TO CONTINUE ";A$:C. 

130 P.: P. "YOU HAUE 10 SHOTS 

200 P. "TO SHOOT AS MANY DUCKS AS POSSIBLE 
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210 P .: P ." AFTER AN EUEN NUMBER OF HITS 

220 P. "TWO NEW DUCKS WILL APPEAR ON THE SCREEN 

230 P. : P. : I. "PRESS < ENTER > TO START ";A$:C. 

240 COS. 800 

250 F . N=46T047 : S . ( , N ) : S . ( 64 , N ) : S . ( 103 , N ) : N . N 

2S0 S=0:H=0 

300 REM- PLACEMENT OF DUCKS 

310 F.N=128TO704S.S4:P.A.N:N.N:P.A. 1, 

320 V=R. (30) +3 

330 W=R.(7)*3+6 

340 X=R.(86)+20 

350 Y=R.(3)*3+21 

360 F.N=U-2TOV+0:S.(N,W):N.N:S.(N,W-1 ) 

370 F.N=XT0X-2S. - 1 : S. ( N, Y ) : N. N: S. ( N, Y-l) 

400 REM- FIRING CHECK 

410 P.A.I, :F.N=1T07S.2:S. (N,0):N.N 

415 GOS. 1000: IFP. (3,0 )G. 415 

420 IFP. (7,0)=0Z=64: J=-3. 92: G. 500 

430 IFP.(S,0)=0Z=64: J=4.15:G.500 

440 IFP.(1,0)=02=109:J=-5.77:G.500 

450 IFP .(3,0 )=0Z=0 : J=6 . 69 : G . 500 

460 G.415 

500 REM- SHOOT TRACE 

510 S=S+l:P=2:F.L=42T06S.-3 

520 P=P+J:IFP.(P,L)G.B00 

530 S.(P,L):IFL>32G.580 

540 IF(P.(P+1,L))+(P.(P-1,L))G.600 

580 GOS. 1000: R.(P,L):N.L:IFS=10G. 700 

590 G.410 

600 REM- HIT SEQUENCE 

S10 H=H+1 : F=I . ( L/3 )*64+I . ( P/2 )-66 

620 F.B=1T03 

630 F.N=-R.(3)T0R. ( 3 )S. R. ( 3 ) : S. ( P, L+N ) : S. (P+N,L):N.N 

S40 F.C=FT0F+12SS.64:P.A.C, " ";FI.0;:N.C 

650 N.B 

G70 IFS=10G.70B 

G80 IFI.CH/2'=H/2G.310 

S90 GOS. 1000: G.410 

700 REM- END OF SHOTS 

710 P. A. 258, "YOU HAUE HAD YOUR 10 SHOTS 

720 P. A. 324, "YOU SCORED" ; H; "HITS 

730 P. A. 456, :IFH>8P. "MARKSMAN 

740 IFHMP.-FAIR SHOOTING" : G. 760 

750 P."L@@K OUT FELLOW HUNTERS 

760 Y=1:N=0 

770 P. A. 600, "WANT ANOTHER TRY- (YES OR NO) ";:I.D 

780 IFD=0E. 

790 G.2S0 

800 REM- REEDS 

805 F.N=6T058:S.(N,47):S.(N,46):N.N 

810 F.N=70TO103:S.(N,47):S.(N,46):N.N 

815 F.N=115T0127:S.(N,47):S.(N,46):N.N 

820 M=45 

825 READN:IFN=999M=M-l:G.825 

830 IFN=9933RET. 

835 S.(N,M):G.825 

840 D. 17, IS, 24 ,25, 26, 27, 28, 29 ,35, 36 

845 D. 37, 38, 39, 44, 45, 76, 81, 82, 84, 89 

850 D. 90, 99, 118, 119, 120, 121,122, 123, 125,999 

855 D. 14, 16, 17, 18, 24, 25, 26, 27, 23, 35 

860 D. 36, 37, 38, 39, 44, 45, 72, 75, 76, 80 

865 D. 82, 84, 89, 90, 96, 98, 100,119.120.121 

870 D.123, 126,999 

375 D.15, 18,24,26,27,35,36,37,38,39 

830 D. 44, 46, 50, 73, 74, 79,82, 84, 87, 89 

385 0.91,97,98,118,119,120,121,123,127,999 

890 D. 18,22,24,26,27,30,34,36,37,38 

895 D.39, 44, 47, 43, 49, 78, 82, 84, 88, 89 

900 D. 91,94, 114, 117, 119, 120, 121 , 123, 127,999 

905 D. 17, 18,22,23,24,26,28,29,33,36 

810 D. 37, 38, 33, 45, 75, 77, 82, 84 , 92, 93 

915 D. 115, 116,119,121,124,999 

920 D. 24, 26, 32, 36, 39, 46, 47, 48, 49, 76 

325 D. 77, 81, 84, 119, 121,125,999 
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930 D. 25, 26, 29, 31, 36, 38, 40, 81, 84, 117 

935 D. 119, 122, 126, 999 

940 D. 30, 31, 36, 38, 40, 43, 80, 84, 86, 119 

945 D. 119,122,123,999 

950 D. 35, 36, 38, 40, 41, 42, 78, 80, 84, 85, 999 

955 D. 36, 38, 79, 80, 9999 

1000 REM- DUCK MOUEMENT 

1010 S.CU+1,W-1):R.CU-2,W) 

1020 S.CX-3,Y-1):R.(X,Y) 

1030 S.(U+1,W):R.(U,W-1) 

1040 S.CX-3,Y):R.(X-2,Y-1) 

1050 U=U+1:X=X-1 

1060 IFX>2RET. 

1070 F.Q=0TO3:F.R=Y-1TOY:R. C Q, R ) : N.R: N. Q 

1080 X=127:RET. 



MATURITY TEST (L1/4K) by Br. P. Van Eeken 

Everyone else is asking questions to test this and that, now it is our turn. The big question; 
how mature are you really?. By answering all the questions posed in this program, you will be able 
to find out. (If you get a low score, this is only for fun, isn't it?). 

The program works in the following manner :- 

Line 4 zeros all arrays from A(0) to A(25), this is where your answers will be stored. The 
questions start at Line 10 and finish at Line 135. Once all the questions have been answered, the 
program jumps to Line 800 which tells you your score, what that score means and asks you to press 
(ENTER). Once you press (ENTER), the program goes to Line 200 and asks: "would you like a run down 
of your answers?". If you answer yes, it goes back to Line 10 then proceeds to tell you how much 
you scored for each question and your cumulative score. If you answer no, the program asks the 
next person to press (CLEAR). If you would like to see similar programs published, please let us 
know. If you have already written a similar program, why not send it in? 



1 REM BY BR. P. URN EEKEN 

2 C. 

3 I. "PRESS ENTER " ; AS 

4 F.X=0T.25:A(X)=0:N.X 

5 Y=0:N=1:S=0:C=0:BS=DO YOU 

6 Z=0:J=3:G=0:F=1 

7 C. 

8 P. "AFTER YOU ANSWER THE FOLLOWING 25 QUESTIONS, I WILL 

9 P. "BE ABLE TO TELL YOU HOW MATURE A PERSON YOU ARE. 

10 P.AT512, "DO YOU FEEL THAT YOU CRN RLWfiYS DO THINGS BETTER 

11 P. "THAN RNYONE ELSE" ;: GOS. 500 

15 P. ■OFTEN APOLOGIZE: I HAUE SUCH R POOR MEMORY" ;: GOS. 500 

20 P. "OFTEN USE THE EXCUSE: IF I ONLY HAD MORE TIME" ;: GOS. 500 

25 P. "FREQUENTLY SfiY: I'M JUST MOT SOCIABLE" ; : GOS. S00 

30 P. "OFTEN SfiY: I CAN NOT DO IT";:GOS.500 

40 P. "OFTEN SAY: I INTENDED TO DO IT" ;: GOS. 500 

45 P. "EXCUSE YOURSELF WITH: I CRN NOT HELP IT";: GOS. 500 

50 P. "EXCUSE YOURSELF WITH: I'M TOO TIRED" ;: GOS. 900 

55 P. "MUST YOU BE CONSTANTLY ENTERTAINED" ;: GOS. 900 

60 P. "MUST YOU USUALLY BE THE CENTRE OF ATTRACTION" ;: GOS. 500 

65 F=4: P. "ALWAYS TRY TO TELL OTHER PEOPLE WHAT TO DO";: GOS. 500 

70 P. "ANGER QUICKLY"; : GOS. 500 

75 P. "OFTEN SAY: PEOPLE ARE NOT FRIENDLY" ;: GOS. 900 

80 P. "IS IT HARD FOR YOU TO ADMIT YOU ARE WRONG" ;: GOS. S00 

85 P. "IF YOU DON'T LIKE A PERSON, DO YOU REFUSE TO DEAL"; 

86 P. "WITH THEM"; : GOS. 500 

90 F=2:P. "EXPECT EUERYONE TO LIKE YOU" ;: GOS. 500 

95 P. "ASSERT: I DON'T NEED ANYONE'S HELP" ;: GOS. 500 

100 P. "ALWAYS EXPECT GRATITUDE" ;: GOS. 500 

105 P. "FREQUENTLY SAY: IT WAS MY IDEA" ;: GOS. 500 

110 P. "FREQUENTLY GET INTO ARGUMENTS" ;: GOS. 900: F=l 

115 P. "MUST YOU HAUE EVERYTHING YOU WANT" ;: GOS. 900 

120 P. "HAUE YOU A DRIUE FOR PERFECTION" ;: GOS. 900 

125 P. "MUST YOU ALWAYS HAUE THINGS YOUR WAY" ;: GOS. 900 

130 P. "DOES SOMEONE ELSE'S SUCCESS TROUBLE YOU" ;: GOS. 900 

135 P. "IS IT DIFFICULT FOR YOU TO TRUST ANYONE" ;: GOS. 900 
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140 G.800 

200 Z=-i:H=0:B$=DO YOU 

205 C. : IFJ=1G.2G5 

210 C: I. "WOULD YOU LIKE ft RUM DOWN ON YOUR ANSWERS " ; ft 

220 IFA=1G.265 

230 J=1:G.10 

2G5 P. A. 128, "PLEflSE LEAUE NOW FOR THE NEXT PERSON. 

266 P. : P. : P. "THANK YOU. GOODBYE. 

280 P. A. 896, "NEXT PERSON PRESS CLEAR' : S. C 0, 47 ) 

290 IFP. (0,47)G.2S0 

300 G.4 

500 GOS. 900: P. BS; " ";:RET. 

700 H=H+1 

701 IFA(H-1)=0T.705 

702 AS=NO 

703 G.709 
705 AS=YES 

709 P.* ?":P. :P. "QUESTION" ;H:P. 

710 P. "YOU GOT" ;A(H-1); "POINTS FOR YOUR ANSWER OF " ; AS 

711 G=G+A(H-1> 
715 P. 

729 P. "BRINGING YOUR TALLY TO *;G 

723 P. :P. 

725 I. "PRESS ENTER FOR THE NEXT QUESTION ";A$:C. 

730 RET. 

800 C. :IFZ=-1G.810 

801 S=S*2 

302 IFA>=0G.810 

303 C. : P. "APOLOGIES. THERE HAS SEEN A MALFUNCTION. ": P. : P. 

304 P. "PLEASE RESTART. ":P. :P. :A=0:G.3 

810 P. "YOUR MATURITY QUOTIENT SCORES A TOTAL OF" ;S; "POINTS. 

811 P. "YOUR MATURITY RATING THEREFORE, IS": 
319 AS=A SCORE OF 



" 75 OR MORE IS SUPER. 
' 65 TO 74 IS EXCELLENT. 
" 55 TO 64 IS GOOD. 
" 45 TO 54 IS FAAIR. 
35 TO 44 IS POOR. 



320 P. 

925 P. AS; 

830 P. AS; 

835 P. AS; 

840 P. AS; 

845 P. 

850 P. "KEEP IN MIND THAT ONLY AFTER THE AGE OF 60 ARE YOU 

8S0 P. "LIKELY TO RATE SUPER. AGE IS NOT NECESSARY FOR 

870, P. "MATURITY, BUT THE MORE YEARS YOU LIUE, THE GREATER 

371 P. "IS YOUR OPPORTUNITY TO DEUELOP YOUR MATURITY SCORE. 

872 P. "IF YOU SCORE OUER 75 IN AN EARLIER STAGE OF LIFE - 

873 P. "(AND IF IT IS AN HONEST SCORE BASED ON GENUINE THOUGHT) 

874 P. "THEN TRULY YOUR MATURITY IS EXTRAORDINARY." 

875 GOS. 1000 
379 IFS<75G.895 
880 F.X=1T.20 

331 P. A. 100;" "; 

382 F. Y=1T. 100:N.Y 

883 P. A. 100;BS; 

884 P. A. 360; 

885 F.Y=1T.100:N.Y 
890 N.X 

391 G. 899 

395 P. ft. 100; BS; 

399 P. A. 229; :I. "< PRESS ENTER >" ; AS: G. 200 

900 IFZO-1G.902 

301 GOS. 700: RET. 

902 P. " "; :I.A(C):IFACC) = 1G.910 

903 IFA(C)=0G.950 

904 P.:P."I BO NOT UNDERSTAND YOU, PLEASE ANSWER AGAIN. 

905 G.902 

910 S=S+ACC)*F 

911 A(C)=ACC)*F*2 
920 C. 

950 C. :C=C+1:P.A.512; :RET. 
1000 IFS>74BS=" SUPER": RET. 
1005 IFS>64BS=" EXCELLENT": RET. 
1010 IFS >54BS=" GOOD ": RET. 
1015 IFS>44BS="FAIR":RET. 
.1020 IFS >34BS=" POOR": RET. 
1025 BS="UERY LOW": RET. 
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CWORD (L2/4K) BY L.G. RHEDEY 11 

Crossword fans will love this program. It enables you to search a data bank of words to find 
(hopefully) that one that has eluded you. For example:- if in your crossword, you are searching 
for a missing word, (let's say the word is computer) and the only letters you have are C,U and E. 
then, RUN the program and type in -- C...U.E. entering a period (.) wherever a letter is unknown. 
The '80 will search the data statements for EVERY word that fits the pattern and display them. It 
is then up to you to select the correct word from those displayed. If no letters are known, type 

in the number of periods to match the length of the word, ie: will list all five letter 

words. 

The strength of the program lies in the size of its data bank (lines 1000 - 26000). The listing 
includes a few words only for demonstration purposes, since you will certainly wish to set up your 
own data bank on a particular subject (T.V. crosswords for instance). Without data, this program 
requires only 500 bytes, leaving plenty of room even for 4K users. 

The program operates by taking an input word (A$) and comparing it with one read from data (B$). 
If their length is not equal the next word from data is read. If their lengths are equal, the two 
words are compared letter for letter for a match. If the next letter of A$ is a period, it is 
passed over. The process continues until the complete data bank has been searched. You might like 
to speed up operation by dividing the data bank into segments according to the length of the word 
for which you are searching. You could then alter the program logic so that it searches only the 
five letter word segment for five letter words, the six letter word segment for six letter words 
and so on. 



10 REM ** CWORD BY L . G. RHEDEY ** 

20 REM ** 97 BRINGELLY RD. , ** 

30 REM ** KINGSWOOD NSW 2750 ** 

40 REM ** 16/11/80 ** 

50 CLS 

SB GOTO80 

70 CLS: RESTORE 

80 PRINT"ENTER WORD TO BE SEP.RCHED FOR. TYPE . WHERE LETTER NOT KNOWN"; 

90 PRINT: PRINT: PRINT 

100 INPUTAS 

110 READBS 

120 IFBS=°S°GOTO210 

130 Z=LEN(AS2:C=LEN(BS) 

140 IFZOCGOTO110 

150 FORX=lTOZ 

160 IFMID$CAS,X,1)=". "GOTO190 

178 IFMIDSC AS, X, 1 )=MIDSC B$, X, 1 )THENGOTO190 

180 GOTO110 

190 NEXTX 

200 PRINTBS, :GOTO110 

210 PRINT: PRINT 

220 PRINT 'AGAIN ( Y/N ) " ; 

230 IS=INKEYS:IFIS=""GOTO230 

240 IFI$="Y"GOTO70:ELSEEND 

1000 DATA APPLE , APE , ASK , ANOTHER , ACCEPT , ACCENT , AMPERE 

2000 DATABUS , BUSINESS , BANK , BOAT , BAKE , BEAUTY , BUTTER 

3000 DATACAKE , CANDLE , CUP , CALCULATOR , COMPUTER , COMPANY 

4000 DATADOG , DUST , DISK, DATA , DIAGRAM , DIMENSION , DARK 

5000 DATAELEPHANT, EAT, ENTER, ELECTRICITY, EXTENSION 

6000 DATAFOG, FABLE, FEET, FIRE, FISH, FUNCTION, FAVOUR, FEEBLE 

7000 DATAGOAT, GAMBLE, GAIN, GAME, GALLOWS, GUN, GUM, GAS 

8000 BATAHELP , HINDER , HAPPY , HOSTAGE , HOME, HOUSE , HUNGER 

9000 DATAINK, INVISIBLE, INFER, INEVITABLE, INDUSTRY 

10000 DAT A JUST, JUMBLE, JADE, JUNE, JUMBO , JAM, JIFFY 

1 1000 DATAKEETLE , KNIFE , KNOT , KEEP , KEEN , KNEE , KNAUE , KNIGHT 

12000 DATALEMON, LIME, LANGUAGE, LEUER, LOUE, LISTEN, LAKE 

13000 DATAMINCE , MICE , MUSCLE , MUSIC , MUSTARD , MICRO 

14000 DATANUMBER, NIMBLE, NEED, NEXT, NEAR, NOISE, NAUY 

15000 DATAORANGE, ORGANISATION, ORACLE, ORDER, OPEN, OMEN 

16000 DATAPURCHASE, PROGRAMME, PRIDE, PUP, PEST, POSITIVE 

17000 DATAQUIET, QUAKE, QUIVER, QUIT, QUIRK, QUERY 
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18080 DATARIUER , RAMPAGE , RUST, ROOSTER , RECEIVER , RESPECTABLE 
19080 DATASERRCH, SIMPLE, SOW, SUMP, STANDING, SERVE, SHOCK 
28000 DATATUMBLE, TEST, TEMPER, TRICK, TUG, TOUGH, TIMBER 
21008 DATRUMBRELLA, UNCLE, UNDER, USELESS, UMPIRE, UNDRESS 
22000 DATAUERIFY, VOCAL, VOICE, VOID , VIRILE, VANITY 
23000 BRTAWATER , WRSTE, WONDER , WORK , WORRY , WAGE , WHISKY 
24000 DATAXENON , XRAY , XYLOPHONE , XYLEM , XYLONITE 
25800 D ATAYACHT , YARD , YOODLE , YOUR , YANKEE , YESTERDAY , YELLOW 
26000 DATA2IP , ZERO , ZOO , ZEAL , Z INC , ZENITH , ZOOM , ZYGOTE 
30000 DATAS 



AUTOMATIC CHESS BOARD (L2/16K) BY G. THOMSON 

This program fulfils the function of an "automatic" chess board. It presents a diagrammatic 
representation of a chess board on the screen, with the pieces set out correctly. Each player, in 
turn, enters a move which the program tests and if valid, registers by moving the corresponding 
pieces on the screen. The program knows most of the rules of chess and, to the author's knowledge, 
the only moves it will not accept are "En Passant" and "Castling". If an illegal move is entered, 
the program will wipe it and ask again. Moves are entered alternativly between white and black, 
with white having the first move. 

If the board numbering is required to assist you in defining your move, hit "H" for help. 

If these numbers are no longer required, hit "W" for wipe. 

All pieces are formed from three graphic blocks joined in a string and are placed on the screen 
using PRINT@'s rather than [POKE'S or SET'S, so the graphic display speed is no problem. The program 
takes 11000 bytes and therefore requires a machine of at least 16K. It was written on a SYSTEM 80 
and considering the short amount of time for which Garry (16 years old) could have had his 
computer, he is to be congratulated. 



CLS 

10 PRINT @ 284, "CHESS"; 

20 PRINT 9 410 , "WRITTEN BY" 

30 PRINT @ 526, "GARRY THOMSON - 3 DELRAY ST. ORKEY" 

40 CLEAR (2000) 

50 REM 

CHESS BY GARRY THOMSON 3 DELRAY ST. ORKEY 4401 

(076) 311703 



110 DEFINT I,N,R,B,C:DEFSTR S,P:DIM S( 3, 16 ) , L$( 15 ) , P( 3, 8 ) : BSS=CHRS( 8 ) : C$=CHR$( 9E 

) 

150 FOR 1 = 1 TO 12: READ R 5 B,C: L5( I )=CHR$( R ) + CHRS( B )+CHR$( C ) : NEXT I 

165 REM WHITE PIECES ============= WHITE 

170 DATR 171,140,151 
180 DATA 162,188, 140 
130 DATA 136, 191, 132 
200 DATR 138,188, 133 
210 DATA 185,173,182 
220 DRTA 160,191,144 
230 REM BLRCK PIECES ============= BLACK 

240 DATA 148, 178, 168 

250 DATA 157,131, 179 

268 DATA 183,128,187 

270 DATR 131,131, 186 

280 DATA 134,140,137 

290 DATA 159,128, 175 

308 FOR I = 1 TO 12 

310 ON I GOSUB 60000,60010,60020,60030,60040,60050,60060,60070, 60080,60080,601 

00,60110 

320 NEXT I 

325 CLS:PRINT"THIS PROGRRM KNOWS THE RULES OF CHESS BUT DOES NOT 

PLAY FOR ITSELF. IT REQUIRES THE PLAYERS TO ENTER THEIR MOVES 

IN ORDER AS ONE COORDINATE FOLLOWED BY ' TO' THEN THE NEXT 
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EG. .. ' 1,7T01,6' 

FOR NUMBERING OF THE BOARD'; 

326 PRINT' HIT H (FOR HELP) 

TO REMOVE THE NUMBERS HIT W ( FOR WIPE) 

HIT ANY KEY TO CONT" 

327 QS=INKEYS:IF QS=" "THEN 327 
330 FOR 1=1 TO 8 STEP 2 

340 FOR J=l TO 16 STEP 4 

345 SCI,J+2)=STRING$C5,128): S ( I, J+3 )=STRINGSC 5 , 128 ) 

350 SCI,J)=STRINGSC5,191): S( I , J+l )=STRINGSC 5, 191 ) 

353 SCI+1, J+2)=STRINGS<5,191): S( 1 + 1 , J+3 )=STRINGS( 5, 191 ) 

355 SCI+1,J)=STRINGS(5,128): S( 1+1 , J+l )=STRINGS( 5, 128 ) 

360 NEXT J, I:CLS 

372 INPUT ' WHITE PLAYER ";N1S 

375 INPUT " BLACK PLAYER " ; N2S 

330 FOR 1= 16 TO 1 STEP -1 

390 FOR J= 1 TO 8 

400 PRINT SC J, I ); 

410 NEXT J 

415 IF J>7 AND I<2 THEN 430 

420 PRINT 

430 NEXT I 

432 GOTO 435 

433 FOR A=l TO 16 : PRINT STRINGSC 64, 191 ) ; : NEXT A 
435 N=897 

440 FOR 1= 1 TO 8 

450 FOR J= 1 TO 8 

470 PRINT @ N,P( J, I); 

475 U( J, I)=N 

480 N=N+5 

430 IF POSC0) > 35 THEN N=N-168 

500 NEXT J, I 

520 PRINT MS/CHESS'; 

522 PRINT 9 109, STRINGSC 9, 131 ) ; 

525 F=(F=0):IF F=0 THEN QS=N2S+"'S NOUE- " ELSE QS=N1S+"'S MOUE- ' 

540 PRINT @ 233, STRINGSC 23, 128 );: PRINT 9 297, STRINGSC 22, 128 );: PRINT @ 233, QS; 

541 PRINT @ 297,"- " ; : E=0: W=0: BS=" ■ 

550 AS = INKEYS : IF AS = • "OR AS=" THEN 550 

555 IF AS="H" GOTO 65000 

556 IF AS=BSS IF LENCBS)>0 THEN BS=LEFTSC BS, LENC BS )-l ) : PRINTBSS; AS; CS; : GOTO 550 
:ELSE GOTO 550 

557 IF AS="W" GOTO 65050 

558 IF LENCBS)>19 OR AS=CHRSC10) THEN 550 

560 IF AS <> CHRSC13) THEN PRINTBSS; AS; CS; : BS=BS+AS: GOTO 550 

565 PRINTBSS; 

570 IF LENCBS) <> 8 THEN 540 

580 IF MIDSCBS,4,2) <> "TO" THEN 540 

590 A=UALCLEFTS(BS, 1) ) 

600 B=UALCMIDSCBS,3,D) 

610 C=VALCMIDSCBS,6,1)) 

620 D=UAL(RIGHTSCBS, 1)) 

622 IF A*B*C*D=0 THEN 540 

623 IF A>8 OR B>8 OR C>8 OR D>8 THEN 540 
625 IF A+B+C+D>32 THEN 540 

630 FOR 1=1 TO 12 

640 IF P(A,B) = LSCI) THEN 660 

650 NEXT I 

655 GOTO 540 

660 IF F=0 AND I<7 THEN 540 

670 IF F=-l AND I >6 THEN 540 

675 J=0 

680 IF PCC,D)=°" THEN 740 

690 FOR J= 1TO 12 

700 IF PCC.D) = LSCJ) THEN 710 

702 NEXT J 

705 GOTO 540 

710 IF F=0 AND J>6 THEN 540 

720 IF F=-l AND J<7 THEN 540 

730 IF J=5 OR J=ll THEN W=l 

740 ON I GOSUB 60200,60250,60300,60350,60400,60450,60200,60250,60300,60350,60406 
, 60450 
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758 IF 


E=l THEN 540 


760 PRINT @ UCA,B)-I,SCA,B#2); 


770 PRINT ® UCC,D),PCC,D); 


780 IF 


W=l THEN 800 


733 GOTO 525 


800 PRINT @ 745, "THE GAME IS OUER"; 


810 PRINT @ 810, "TO PLAY AGAIN HIT-A"; 


320 JS 


=INKEYS:IF J$<>"A" THEN 820 


325 PRINT @ 875 , " I'LL PREPARE"; 


830 FOR 1=1 TO 8: FOR J=l TO 8 


840 P(I,J) = "" 


850 NEXTJ , I 


880 GOTO 300 


53538 


REM THE5E SUB ROUTINES ALLOCATE THE GRAPHIC SHAPES 


53333 


REM ===========================****************•******* 


G0000 


PCi,S)=L$(I):PC8,8)=L$CI ) 


68005 


RETURN 


80010 


P(2,8)=L$(I):PC7,8)=L$( I) 


60015 


RETURN 


60020 


PC3,8)=L$C I ):P(6,8)=L$(I) 


60025 


RETURN 


60030 


PC4,S)=L$CI) 


60035 


RETURN 


60040 


PC5,8)=L$CI) 


60045 


RETURN 


60050 


FOR N=l TO 8 :PCN,7)=L$(I):NEXT N 


60055 


RETURN 


60060 


P(8,1)=LS(I):P( 1,1)=L*(I) 


60065 


RETURN 


60070 


PC 2, 1)=L$CI):PC7,I)=L$CI) 


60075 


RETURN 


60080 


PC3,1)=L$CI ):P(6,1)=LS(I) 


60085 


RETURN 


60030 


PC4,1)=L$CI) 


60035 


RETURN 


60180 


PCS, 1)=U$CI) 


60105 


RETURN 


60110 


FOR N=l TO 8 :PCN,2)=LSCI):NEXT N 


60115 


RETURN 


60200 


REM ============================ M 0UING ROOKS 


60205 


IF AOC AND B=D THEN G1=A: G2=C: GOTO 60221 


60207 


IF BOD AND A=C THEN G1=B: G2=D: GOTO 60211 


60203 


E=l : RETURN 


60211 


IF GKG2 THEN S! = l ELSE S!=-l 


60213 


FOR G=G1 TO G2 STEP S! 


60214 


G3=CGOGl)AND C GOG2 ) 


60215 


IF PCA,GK>"- AND G3=-l THEN E=1:RETURN 


60217 


NEXT G 


60213 


GOTO 60223 


60221 


IF GKG2 THEN S!=l ELSE S!=*-l 


63223 


FOR G=G1 TO G2 STEP S! 


50224 


G3=CGOGl)AND CGOG2) 


60225 


IF PCG,B)<>°" AND G3=-l THEN E=l: RETURN 


60227 


NEXT G 


60223 


PCC,D)= PCA.B) 


60231 


PCA,B)= "" 


60233 


RETURN 


60250 


REM ============================MOUING KNIGHTS 


G0255 


IF CCA-C)C2+CB-D)C2)<>5 THEN E=l : RETURN 


60260 


PCC,D)=PC A,B) 


60265 


PCA,B)=°" 


60270 


RETURN 


60300 


REM ============================MOUING BISHOPS 


60305 


IF INTCABSCABSCA-C)-ABSCB-D)))<>0 THEN E=l : RETURN 


60310 


IF A<C THEN G1=A : G2=C : G3=B : GOTO 60327 


60315 


G1=C:G2=A : G3=D 


60320 


IF B>D THEN S!=l:GOTO S0330 


68325 


S!=-l:GOTO 60330 


60327 


IF B<D THEN S!=l:GOTO 60330 


60323 


S!=-l 


60330 


FOR G= Gl TO G2 


60335 


G4=CGOGl)AND C GOG2 ) 


60340 


IF PCG,G3)<>"° AND G4=-l THEN E=l: RETURN 


60342 


G3=G3+S ! 
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DONT BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UP TO 
NEWDOS80 $149 inch p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5 1 / 4 inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $339 

MPS B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 
MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1 500! ! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $599 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 
THEN USE 
3M's DISK DRIVE HEAD CLEANING DISKETTES 
$30.20 incl. p&p. 
Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 



PLEASE USE ORDER FORM OH PAGE 36 



PAGE 18 



MICROPOLIS 77 TRACK DISK DRIVES 

These fabulous MICROPOLIS disk drives have more 
than double the storage capacity of the standard 35 
track drives. 

DD-7S only $775 incl. p&p 
77 track MICROPOLIS drive complete with cable for 
four drives, power supply, chassis and includes 
NEWDOS80. 

DD-7 only $649 incl. p&p 
Same as above but no cable or NEWDOS 80. 

DC4 only $45 incl. p&p 

4 drive connector cable — suitable for any disk drives. 



FLOPPY DOCTOR AMD MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $120 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



GREEN SCREEN SIMULATOR 
$19.95 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 



UPGRADE li 



MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 — 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



USE TANDY PERIPHERALS ON YOUR SYSTEM-80 
VIA 
SYSPAND-80 - $119 incl. p&p 
The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or a MICROTEK 
memory expansion module or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



UPGRADE TO A 48K SYSTEM FOR ONLY $245!! 
VIA THE 
MICROTEK MEMORY EXPANSION/PRINTER 
MODULE 
Need more memory but don't want to pay over $600 
for an expansion interface? Then the MICROTEK 
MT-32 memory expansion/printer module is for you. 
Ready to plug in and go, this module provides you 
with sockets for an extra 32K of ram in 16K blocks 
plus a printer port. It is housed in an attractive, grey 
and black metal cabinet of similar size to the Tandy 
expansion interface so that you can sit your monitor 
atop it. The MICROTEK unit runs from the same 
external power pack as the Tandy CPU. The Centronics 
parallel printer port enables you to run most printers 
including the Olivetti ET-1 21 with MICRO-80 interface. 
Full instructions for connecting to your system and 
adding memory chips are included. 

SYSTEM 80 owners can use the MICROTEK module 
via the SYSPAND-80 adaptor. A separate external 
power supply providing 7.5-0-7.5 volt ac at 0.5 
amp plus 20v unfiltered dc at 250 ma is required, 
(not available at present from MICRO-80 PRODUCTS) 

MICROTEK MT32-A OK $149 

MICROTEK MT32-B 16K $179 

MICROTEK MT32-C 32K $209 



HIGH QUALITY DISKETTES all prices include p&p 

40 TRACK NASHUA SINGLE SIDE/SINGLE DENSITY ... $45.00 box ©f 10 



HIGH QUAI 

40 TRACK VERBATIM DOUBLE SIDI 
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software is syllable for either the SYSTEM 80 or the IiS»8Q 



NEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: - 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 
Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

S-KE Y by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

'* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/1648K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$24.95 $ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 1 6K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY (L2/16K) $7.50 $ 50c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $7.50 + 50c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$9.95 + 50c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 



f DISKETTES 

MJBLE DENSITY ... $59.00 box 



III 



QUALITY DISKETTES 

77 TRACK VERBATIM SINGLE SIDE/SiNGLI DENSITY ... $59.00 box ©f 10 
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AUSTRALIAN SOFTWARE (Cont.) 

T0UCHTYPEU2/4K) $19.95 + 50c. p&p 

An interactive, 22 lesson typing course which uses the 
computer's keyboard and screen to teach you to type 
rapidly and accurately and, a massive cassette data 
dump to control your progress. The computer checks 
for accuracy, and sets timed exercises to check your 
progress. If you have to look at each key before you 
press it, or only use two fingers, then this program, 
plus a little perserverance, will do some amazing things 
to your typing speed. 

GAMES 

UBOAT $7.50 plus 50c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS $7.50 plus 50c p&p 

Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF(L2/16K) $7.50 + 50c p&p 

Pit your skills at mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

D0MIW0ES(L2/16K) $7.50 + 50c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF fformerly MMM-1) $7.50 plus 50c. p&p 
Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFIW1TE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions - 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AMD INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED(L216 f 32 or 48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



PROGRAMS FROM CREATIVE COMPUTING 
ADVENTURE PROGRAMS 

ADVENTURELAND (L2/16K) $14.95 + 50c. p&p 

Try to find and take treasures as you explore a fantasy 
world. The computer acts as your puppet and carries 
out your two word commands. 

Sometimes you will need special objects to do certain 
things, often a little magic is necessary. Absorbing and 
challenging. 

THE COUNT ADVENTURE (L2/16K) 
$14.95 + 50c. p&p 

In this adventure, you awaken in a bed in a castle in 
Transylvania. You don't know why you are there but 
you'd better solve the puzzle before it's too late. Just 
as enthralling as ADVENTURELAND but blood 
thirstier! 

ADVENTURELAND AND PIRATE ADVENTURE 
ON DISK (32K ONE DISK) $24.95 + 50c. p&p 

This is the Adventureland program on disk plus Pirate 
Adventure, complete with buried treasure, keel hauling, 
planks for walking and skulls and crossbones. 

You can save the game to disk at any point and 
return to it later when your nerves are steady. 



GAMES 

AIR TRAFFIC CONTROLLER (L2/16K) 
$9.95 + 50c. p&p 

One of the hottest selling games in the USA, you are 
the Air Traffic Controller and the monitor is your 
radar screen. Bring down the aircraft safely and avoid 
mid-air collisions. 

Z CHESS (L2/16K) $19.95 + 50c. p&p 

(DISK/32K) $24.95+ 50c. p&p 

Seven levels of ability, contains all standard moves 
including castling and En Passant captures. It can play 
either black or white and its versatile board set-up 
mode allows specific positions to be played as desired. 

SPACE GAMES (L2/16K) $13.50 + 50c. p&p 

3 Space Games including ULTRA-TREK, ROMULAN, 
and STARWARS. Fast, real-time graphics. 
STRATEGY GAMES (L2/16K) $9.50 + 50c. p&p 

5 Strategy games including TUNNEL VISION (find 
your way out of a 3-D maze), EVASION — avoid 
the deadly snake). JIGSAW (put the puzzle together), 
THE MASTERS (Golf on the '80 for up to 4 players), 
MOTOR RACING (Compete against the computer at 
Indy or the Grand Prix). 

GRAPHING PACKAGE (L2/16K) $9.95 + 50c. p&p 
A set of 6 utility programs which allow you to draw 
BAR GRAPHS, GRAPH CARTESIAN COORDI- 
NATES, carry out POLAR GRAPHING, PARAMETRIC 
GRAPHING, LINEAR REGRESSION and PARA- 
BOLIC REGRESSION. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 

$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 

sample programs. Applies to both TRS-80 and SYSTEM 

80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 $$1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 

structures revealed, DOS's compared and explained, 

how to recover lost files, how to rebuild crashed 

directories — this is a must for the serious Disk user 

and is a perfect companion to any of the NEWDOS's. 



ISSUE 14 (JANUARY 1981) MICRO-80 PAGE 21 

G0344 NEXT G 

60345 PCC,D>= PCR,B) 

60346 PCR,B)="": RETURN 

60350 REM ============================MOUING QUEENS 

60355 IF fi< >C RND B< >D THEN GOSUB 60300 : RETURN 

60360 IF Fi=C OR B=D THEN GOSUB 60200 : RETURN 

60365 E=I 

60370 RETURN 

60400 REM =============================MOUING KINGS 

60405 IF RBSCR-C)>1 OR RBSCB-D)>1 THEN E=l : RETURN 
60410 IF R< >C RND B< >D THEN GOSUB 60300 : RETURN 
60415 IF fl=C OR B=D THEN GOSUB 60200 : RETURN 
60420 E=l: RETURN 
60450 REM ============================MOUING PAWNS 

60460 Y=0 : 

G0465 IF 1=6 AND B=7 RND (B-D)>0 THEN Y=l 

60470 IF 1=12 FIND B=2 AND (D-B)>0 THEN Y=2 

60480 L=RBSCB-D) 

60485 IF L=2 AND Y< 1 THEN E=l: RETURN 

60490 IF (B-DX0 AND 1=6 THEN E=l : RETURN 

60495 IF CD-BX0 RND 1=12 THEN E=l : RETURN 

60497 IF J>0 THEN 60550 

60498 IF ROC THEN E=l : RETURN 
60500 IF P(C,DK>"" THEN E=l : RETURN 

60505 IF L=2 RND PCR,D-i)<>"" RND Y=2 THEN E=i : RETURN 

60510 IF L=2 RND PCR,D+1K>°" RND Y=l THEN E=l : RETURN 

60515 GOTO 60700 

60550 IF RBS(fi-C)>l THEN E=l : RETURN 

60555 IF RBS(B-D)>1 THEN E=l : RETURN 

60560 IF PC C,D)-"" THEN E=l: RETURN 

60700 IF D=l OR D=8 THEN PC C, D )=L3C 1-2 )ELSE PCC,D)=PCR,B) 

60710 PCR,B)="" 

60720 RETURN 

65000 REM HELP BOARD NUMBERING 

65005 FOR 1= 1TO 8: FOR J= 1 T08 

65007 HS=RIGHT$C STRSC 1*10+ J ) , 2 ) : HS=LEFTS( HS , 1)+ " , " +RIGHT3C HS , 1) 

65010 PRINT § UCI,J)+64,H$; 

55020 NEXT J, I 

65030 GOTO 540 

65050 FOR 1=1 TO 3 : FOR J= 1TO 8 

65060 PRINT @ UCI, J )+63, SC I , J*2-l ) ; 

65070 NEXT J, I: GOTO 540 



CELLAR CONTROL (L2/16K) BY M.J. LEONARD 

This is an inventory control and selection guide for up to 200 different wines with a maximum of 99 
bottles of each. Which means it could keep control of a cellar containing 19,800 bottles! (hie! - 
Ed.). Selection can be made from three fields namely: 

- Vintage year 

- Vineyard (or Maker) 

- Grape Variety or Type 

Display of the selected field is given on the VDU, panel by panel. Upon making your choice(s), 
returning to the menu allows adjustment of the stock and automatic reduction of the inventory. The 
updated file is then returned to tape. As data is packed, it takes only six and a half minutes to 
save or load 200 entries. 

This program is an interesting exercise in character string manipulation, which could be adapted 
for cataloguing and control of many other hobbies... records, beer mats, books and plants to name a 
few. The only care that must be taken is that once headings have been' created, all entries to and 
selection from the individual items, (strings) must be of the specified field length, e.g. number 
of bottles must always contain 3 digits, otherwise the computer will get lost. Each entry should 
look like thi s: - 

NO YEAR VINEYARD BIN/TYPE VARIETY BGT PRICE BIN 
003 1965 Rosemount Bin 25A Cab.Shiraz '80 4.25 14 
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Only the number of bottles and three of the fields (Or headings) are called up in the program, 
therefore you are free to change or enter anything under the other headings or even add another 
category such as Bin Number for example, if you y want to know which wines are in a particular 
Bin. Instructions are given throughout the program, "NEWLINE" showing that it was created on a 
System 80 (TRS-80 users press "ENTER" instead of "NEWLINE"). 



5 ' CELLAR CONTROL 

G 'AUTHOR - M. J. LEONARD, 3 PROSPECT AVE. , CREMORNE, 2090 

10 CLS: CLEAR1 1500: DEFSTRA: DEFINTI , J, T, X: DIMAC 201 ) : PRINT@23, "CELLAR CONTROL" : PRIN 

T@87,STRINGSC14,42):PRINT"F0R CONTROL AND ORGANISATION OF UP TO ?00 DIFFERENT WI 

NES" 

15 PRINT: PRINT"* 1. KEYBOARD INPUT", ■# 5. ADJUST STOCK":PRINT 

20 PRINT"* 2. CASSETTE INPUT","* 6. SELECT VINTAGE" : PRINT 

25 PRINT"* 3. SAVE ON CASSETTE","* 7. SELECT VARIETY" : PRINT 

30 PRINT"* 4. CELLAR LIST" , "* 8. SELECT UINEYARD" : PRINT 

35 INPUT " SELECTION * " ; XS : X=VALC XS ) : IFX=0ORX >8GOTO35ELSEONXGOTO40 , 80 , 135 , 94 , 1 10 , 1 

55,170,180 

40 CLS: PRINT "KEYBOARD INPUT" : PRINT: PRINT" - ENTRY OF VINTAGE YEAR COMMENCES UNDER 
'Y' ":PRINT"~ ENTRY OP BOTH UINEYARD AND GRAPE VARIETY COMMENCES UNDER ' V AN 

D CONSISTS OP LESS THAN 12 LETTERS" : PRINT" - BGT = YEAR PURCHASED; BIN = STORAGE 
BIN" 

41 PRINT"- NO = NUMBER OF BOTTLES; ENTER THREE DIGITS E.G. 001 ": PRINT: PRINT'TO 
RETURN TO SELECTION, OR CORRECT ERROR, TYPE ' EXIT' " 

42 PRINT: PRINT" NO YEAR VINEYARD BIN/TYPE VARIETY BGT PRICE BIN" 

43 FORI=1TO200 

45 IFA(I)O""THEN70 
50 A= " " : INPUTA: IFLENC A ) >57THEN65 
55 IFA=-EXIT"THENI=I-l:G0T075 
G0 G0T0S8 

G5 PRINT " ERROR. . .ENTRY EXCEEDS MAXIMUUM LENGTH" : GOTO50 

68 ACI)="*"+fl 

70 NEXT 

75 CLS: PRINT n END OF INPUT... LIST CONTAINS" ; I ; "WINES" : GOT015 

80 CLS: PRINT" INPUT FROM CASSETTE" : PRINT 

85 INPUT-PREPARE CASSETTE RECORDER. .. PRESS -NEWLINE- WHEN READY" ; XS: PRINT: PRINT- 
LIST NOW BEING ENTERED FROM TAPE. .. PLEASE WAIT" 

86 FORI=1TO200STEP4 

87 INPUT#-1 , A( I ) , A( 1 + 1 ) , A( 1+2 ) , AC 1+3 ) 

88 IFAC I )=" "ORA( 1+1 )=" "ORAC 1+2 )=" "ORAC 1+3 )=" "THEN30 
88 NEXT I 

90 CLS: PRINT- INPUT FROM CASSETTE COMPLETED" : GOT0.1S 

94 CLS:PRINT"COUNTING STOCK. .. PLEASE WAIT" 

95 V=0:FORI=1TO200:V=V+VAL(MIDS(A(I),2,3)):NEXTI:CLS:PRINT"CELLAR LIST", "TOTAL 
STOCK" ;V; "BOTTLES" 

98 FORI=1TO200 

99 PRINTI; : PRINTAC I ): PRINT: IFAC I)=" "THEN105 

100 IPINTCI./7) = I/7THENPRINT"PRESS -NEWLINE- POR NEXT PANEL ";: INPUTXS: PRINT 

101 NEXT! 

105 PRINT-CELLAR LIST COMPLETE" : INPUT"PRESS -NEWLINE- TO RETURN TO SELECTION" ; X: 

CLS:G0T015 

110 CLS: PRINT-STOCK ADJUSTMENT" : PRINT: PRINT"NIL STOCK AUTOMATICALLY REMOVES WINE 

PROM LIST": PRINT: INPUT-WHICH LINE NO. IS REQUIRED"; I 
112 PRINT:PRINT"LINE TO BE ADJUSTED :-" .-PRINTAC I ) :PRINT: INPUT" WHAT IS ADJUSTMENT 

"; J:IFJ>99THEN112 
115 JI=VALCMIDSCACI),3))+J 

120 IFJI=0THEN130 

121 IFJI>9THEN125 

124 AC I ) = »#-+ ST rsc J I )+MIDSC AC I ) , 4, 54 ) : CLS: G0T015 

125 ACI) = "*"+STRSCJD+MIDSCACI),4,54):CLS:G0T015 

130 FORI=ITO200 

131 ACI)=ACI+1) 

132 NEXTI 

133 CLS :GOTO 15 

135 CLS: PRINT-SAVING ON CASSETTE" : PRINT: INPUT"PREPARE CASSETTE RECORDER. .. PRESS 

-NEWLINE- WHEN READY" ; X: PRINT: PRINT"LIST NOW BEING RECORDED ON TAPE. .. PLEASE WAI 

T" 

140 FORI=1TO200STEP4 

142 PRINT*- 1 , AC I ) , AC 1+1 ) , AC 1+2 ) , AC 1+3 ) 

145 IFACI)=""ORACI+l )=""ORAC 1+2 )=" "ORAC 1+3 )=" "THEN150 

147 NEXTI 
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150 CLS: PRINT "RECORDING COMPLETED" : G0T015 

155 CLS: PRINT "SELECT MINTAGE" : PRINT: INPUT'TOTAL NO. OF WINES LISTED" ; II: PRINT 

156 INPUT "WHAT UINTRGE IS REQUIRED" ; X: IFX< 1900ORX>2000THEN156 
159 F0RI=1T0II 

1G0 J=URLC MIDSC R( I ) , 7, 4 ) ) : IFX=JTHEN165 

162 G0T0166 

165 PRINTI; : PRINTflC I ) : C=C + 1 : IFINTC C/15 )=C/15THENPRINT"PRESS -NEWLINE- FOR NEXT P 

ANEL"; :INPUTXS 

166 NEXT I 

168 PRINT-LIST COMPLETE" : PRINT "PRESS -NEWLINE- TO RETURN TO SELECTION" ;: INPUTXS: 

CLS:G0T015 

170 CLS: PRINT "SELECT URRIETY" : PRINT: INPUT"TOTRL NO. OF WINES LISTED" ; IT : PRINT 

171 INPUT-WHflT GRAPE VARIETY IS REQUIRED (11 SPACES) "; G$: IFLEW G$ )<>11THENPRINT: 
PRINT "ERROR... SELECTION MUST CONSIST OF 11 LETTERS AND/OR SPRCES" : PRINT: G0T0171 

174 FORI-1TOII 

175 S3=MID$( A( I ) , 34, 11 ) : IFG$=SSTHEN165 

176 G0T0166 

180 CLS: PRINT "SELECT UINEYRRD" : PRINT: INPUT"TOTAL NO. OF WINES LISTED" ; II : PRINT 

181 INPUT-WHRT UINEYRRD IS REQUIRED (11 SPRCES ) " ; YS: IFLENC YS )<>11THENPRINT: PRINT 
"ERROR. . .SELECTION MUST CONSIST OF 11 LETTERS RND/OR SPRCES" : PRINT: G0T0181 

184 FORI-1TOII 

185 TS=MIDS( fl( I) , 12, 1 1 ) : IFYS=TSTHEN165 
185 G0T0166 



***LIFE AT 7000H***LIFE AT 7000H***LIFE AT 7000H***LIFE AT 7000H* 
ADAPTED BY N. ROSSITER BASIC and m/1 (L2/1K) 

Yes it is, your eyes don't deceive you. After waiting twelve months for someone to relocate Life 
to run at 7000H we eventualy received it. If you still have the original BASIC part of the program 
on tape there is a small change that you will have to edit into it. If you are typing in the 
listing from the magazine (or you have a cassette subscription) you will not need to worry as the 
changes have been made for you. System 80/Video Genie/PMC 80 owners should type in the BASIC 
listing from this month's magazine and not the listing in the January 1980 issue as the 1980 
version will not work on your machines. For those that were not subscribers at the time, the 
original text (changed where nessessary) is reproduced below. 

This program is in two parts, a machine language sub-routine which carries out most of the 
computations and a BASIC program used to set up initial parameters. The BASIC program calls the 
machine language program via the USR command. 

The machine language program should be entered first using either an editor/assembler or a suitable 
monitor such as T-BUG (BMON is not suitable because it resides in the same area of memory as this 
program. You could use BMON by locating the program at a lower position in memory and adding a 
block-move routine as described in Issue 10, (September 1980). Note, however, that you would need 
to make the block-move routine pass control back to BASIC (at 6CCH) as. soon as it has moved the 
program, rather than transfer control to the machine language program itself). Those using an 
editor/assembler to enter the program should ignore the first two columns in the listing and start 
with column 3, which contains the line numbers. For those using a monitor, the machine language 
program is shown in the two columns down the left-hand side of the listing. The first column 
contains the address and the second the actual program material in Hex. Select EDIT or CHANGE 
MEMORY mode in your monitor starting at 7C00H, enter 21. The monitor will automatically move on to 
7C01H. You should then enter 95. At 7C02H enter 77, at 7C03H enter 22 and so on until you reach 
77EFH, which you should leave unaltered and exit the EDIT mode. Note that the addresses 3C00H, 
3C1FH and 3C56H , which are in screen RAM, are also shown in the listing as being altered. These 
addresses are used by the machine language program to print messages directly on to the screen 
whilst the program is loading. If you enter the program with a monitor rather than an 
editor/assembler, this facility will not be available to you and you will need to be content with 
using the normal method of loading machine language programs. 

Once you have entered the machine language program, punch out a SYSTEM tape. If you have used an 
editor/assembler, the necessary parameters will be automatically provided on the tape. If you have 
entered the program via a monitor, punch the tape using the following parameters:- 

START=766BH END=7CFEH ENTRY=7795H 

Now, enter the BASIC listing and CSAVE it. 

When reloading LIFE from tape first protect Memory size at 30314 then:- 
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1) Type "SYSTEM" 

2) Press ( ENTER/NEWLINE ) 

3) ANSWER "*?" with "LIFE". Press (ENTER/NEWLINE) 

4) When the second "* ?" appears, answer with "/" 

5) A message will then appear on the screen explaining the changes you need to make to 
the original BASIC program. If you are using the original BASIC listing, make these 
changes. If you have entered the listing from this issue, ignore the message. 

6) CLOAD in the BASIC program and type RUN. 

The game of LIFE was originally discussed in the Scientific American some years ago. It isn't 
really a game at all, but a rather complex set of rules governing the growth of cells (or 
civilisations), which this program illustrates graphically on the 80's screen. 

The rules are as follows:- 

1) Each cell (2X by 1Y in this version) is capable of life 

2) Life will be created in a cell location if it has exactly three living neighbours. 

3) Life will continue if a cell has only two or three living neighbours. 

4) Life will cease if a cell has less than two living neighbours (we all need some 
companionship). 

5) Life will cease if a cell has more than three living neighbours (since three cells are 
required to create life it stands to reason that "four's a crowd" therefore five is 
unlivable). 

6) All births and deaths must occur simultaneously. 

This version of LIFE is in two parts. The BASIC program is quite self explanatory, offering the 
option of user or computer generated starting patterns, variable generation speeds (up to one per 
second) and single key termination at any time. The machine language routine does all the real 
work, making massive use of subroutines. Each run through the routine will create one new 
generation. The original concept of life was that the overall population would enjoy periods of 
growth and expansion, suffer periods of recession and contraction and that in all cases would 
sa ] hse J " wlth elther a pattern of growth and contraction that repeats continuously or with a 
stable and non-changing pattern. 
This has always proved to be the case ! 



7G6B 




00100 


BOTTOM 


EQU 


76BBH 


77EE 




00110 


WQRKfl 


EQU 


B0TT0M+183H 


7833 




00120 


STORE! 


EQU 


B0TT0M+195H 


7CB0 




00130 


ST0RE2 


EQU 


B0TT0M+595H 


3C08 




00140 




ORG 


3C0BH 


3C00 


2R 


00150 




DEFM 


' **** LORDING LIFE S/R ** WRIT F 


3C1F 


4F 


00160 




DEFM 


'OR "GOOD LORD" THEN ENTER "/"** 


7C00 




00170 




ORG 


ST0RE2 


7C00 


219577 


00180 




LD 


HL, ENTER 


7C03 


228E40 


00190 




LD 


(408EH),HL 


7C06 


21003C 


00200 




LD 


HL,3C00H 


7C09 


01FF03 


00210 




LD 


BC.3FFH 


7C0C 


11013C 


00220 




LD 


DE.3C01H 


7C0F 


3620 


00230 




LD 


( HL) , 20H 


7C11 


EDB0 


00240 




LDIR 




7C13 


21217C 


00250 




LD 


HL.TEXT 


7C1S 


11003C 


00260 




LD 


DE.3C00H 


7C19 


01DD00 


00270 




LD 


BC,0DDH 


7C1C 


EDB0 


00280 




LDIR 




7C1E 


C3191R 


00290 




JP 


IRISH 


7C21 


4C 


00300 


TEXT 


DEFM 


'LORD OR ENTER SEEDING PROGRAM.' 


7C3F 


20 


00310 




DEFM 


' ENTRY POINT FOR USRC0) ROUTIN' 


7C5D 


45 


00320 




DEFM 


' E HAS BEEN STORED. POKE STRT' 


7C7B 


45 


00330 




DEFM 


' EMENTS SHOULD BE REMOUED FROM ' 


7C99 


4C 


00340 




DEFM 


' LINE 10 OF MICRO-80 PROGRAM, B' 


7CB7 


55 


00350 




DEFM 


' UT DO NOT DELETE LINE OR UL FR' 



14 
7CD5 


(JANUARY 

52 


1981) 
00360 




DEFM 


MICRO-80 
' ROR WILL fiRISE FiT LINE 210 


7CF3 


20 


00370 




DEFM 


' GOOB LUCK!' 




7S6B 




00380 




ORG 


BOTTOM 




76GB 


21003C 


00390 


STfiRT 


LB 


HL , 3C00H 




7G6E 


110078 ' 


00400 




LB 


BE,5T0RE1 




7671 


010004 


00410 




LB 


BC.400H 




7674 


EBB0 


00420 




LBIR 






7676 


210078 


00430 




LB 


HL,STOREl 




7679 


22EE77 


00440 




LB 


( WORKfi ) , HL 




767C 


23 


00450 




INC 


HL 




767D 


22F077 


00460 




LD 


C WORKfi+2 > , HL 




7680 


23 


00470 




INC 


HL 




7631 


22F277 


00480 




LB 


(W0RKfi+4),HL 




7684 


214078 


80490 




LB 


HL,ST0REl+64 




7687 


22F477 


00500 




LB 


( WORKfi+6 ) , HL 




768ft 


23 


00510 




INC 


HL 




768B 


22F677 


00520 




LB 


(W0RKfi+8),HL 




763E 


23 


00530 




INC 


HL 




768F 


22F877 


00540 




LB 


(WORKfi+10),HL 




7692 


218078 


00550 




LB 


HL,ST0REl+i28 




7695 


22FA77 


00560 




LB 


(W0RKA+12),HL 




7698 


23 


00570 




INC 


HL 




7699 


22FC77 


30580 




LB 


(W0RKfi+14),HL 




763C 


23 


00590 




INC 


HL 




769D 


22FE77 


00600 




LB 


(W0RKfi+16),HL 




76A0 


21007C 


00610 




LB 


HL.STORE2 




76A3 


01FF03 


08620 




LB 


BC,3FFH 




76A6 


11017C 


08630 




LB 


BE.3T0RE2+1 




76A9 


3680 


B0640 




LB 


( HL) , 80H 




76AB 


EDB0 


00650 




LBIR 






76AD 


21417C 


00660 




LB 


HL.ST0RE2+65 




76B0 


317E03 


00670 




LB 


BC,37EH 




76B3 


3E00 


00680 




LB 


A,0 




76B5 


C9 


00690 




RET 






76B6 


CB46 


80700 


TE5T0 


BIT 


0, (HL) 




7GB8 


C8 


00710 




RET 


Z 




76B9 


3C 


00720 




INC 


A 




76Bfi 


C9 


00730 




RET 






76BB 


CB56 


00740 


TE5T2 


BIT 


2 , ( HL ) 




763D 


CS 


00750 




RET 


2 




76BE 


3C 


00750 




INC 


A 




76BF 


C9 


00770 




RET 






76C0 


CB66 


00780 


TE5T4 


BIT 


4 , C HL ) 




76C2 


C8 


00780 




RET 


2 




76C3 


3C 


00800 




INC 


fi 




76C4 


C9 


00810 




RET 






76C5 


2REE77 


00820 


HIRO 


LB 


HL, (WORKfi) 




i' 6C8 


CBC078 


00830 




CALL 


TEST4 




76CB 


2RF077 


00840 




LB 


HL , ( W0RKA+2 ) 




76CE 


CDC076 


00850 




CALL 


TEST4 




76D1 


2fiF277 


08860 




LB 


HL,(W0RKA+4) 




76D4 


CDC076 


08870 




CALL 


TEST4 




76D7 


C9 


00880 




RET 






76D8 


2AFA77 


00890 


LORO 


LB 


HL,(W0RKA+I2) 




76DB 


CDB676 


00900 




CfiLL 


TE5T0 




76DE 


2AFC77 


00910 




LB 


HL,(W0RKA+14) 




76E1 


CDB676 


00920 




CfiLL 


TE5T0 




76E4 


2AFE77 


80930 




LB 


HL,(W0RKA+16) 




76E7 


CDB676 


00940 




CALL 


TE5T0 




76Efi 


C3 


00950 




RET 






76EB 


2AF477 


00960 


LSIDE 


LB 


HL,(W0RKA+6) 




76EE 


CDBB76 


00970 




CFILL 


TE5T2 




76F1 


C9 


00980 




RET 






76F2 


2AF877 


00998 


R5IDE 


LB 


HL, (WORKA+10) 




78F5 


CDBB76 


01000 




CALL 


TEST2 




76F8 


C9 


01010 




RET 






7SF9 


3E00 


01020 


HISCfiN 


LB 


fi,0 




76FB 


CDC576 


01030 




CfiLL 


HIRO 




76FE 


CBEB76 


01040 




CfiLL 


LSIDE 




7701 


CDB676 


01050 




CfiLL 


TEST0 




7704 


2AF677 


01060 




LB 


HL, (WORKA+8) 




7707 


CDBB76 


01070 




CfiLL 


TEST2 




770A 


CDF276 


01080 




CfiLL 


RSIBE 




770D 


CDB676 


01090 




CfiLL 


TEST0 
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7710 


C9 


01100 




RET 




7711 


3E00 


01110 


C5CRN 


LD 


A,0 


7713 


CDEB76 


01120 




CRLL 


LSIDE 


7716 


CDB676 


01130 




CALL 


TEST0 


7719 


CDC07S 


01140 




CRLL 


TEST4 


771C 


2RF677 


01150 




LD 


HL.CWORKA+8) 


77 IF 


CDB676 


01160 




CRLL 


TEST0 


7722 


CDC076 


01170 




CRLL 


TEST4 


7725 


CDF276 


01180 




CRLL 


RSIDE 


7728 


CDB676 


01190 




CRLi_ 


TEST0 


772B 


CDC076 


01200 




CRLL 


TEST4 


772E 


C9 


01210 




RET 




772F 


3E00 


01220 


LOSCRN 


LD 


A,0 


7731 


CBEB76 


01230 




CRLL 


LSIBE 


7734 


CBC076 


01240 




CALL 


TEST4 


7737 


CBDS76 


01250 




CRLL 


LORO 


773R 


CDF276 


01260 




CRLL 


RSIDE 


773D 


CDC076 


01270 




CRLL 


TEST4 


7740 


2RF677 


01280 




LD 


HL,(W0RKA+8) 


7743 


CBBB76 


01290 




CALL 


TEST2 


7746 


C9 


01300 




RET 




7747 


D9 


01310 


STAGE 1 


EXX 




7748 


CDF976 


01320 




CRLL 


HISCfiN 


774B 


3D 


01330 




DEC 


R 


774C 


3D 


01340 




DEC 


A 


774D 


200F 


01350 




JR 


NZ.BIT31 


774F 


2AF677 


01360 




LD 


HL, (WORKfi+8) 


7752 


CB46 


01370 




BIT 


, ( HL ) 


7754 


280B 


01380 




JR 


Z.STAGE2 


7756 


D9 


01330 


SET1 


EXX 




7757 


CBC6 


01400 




SET 


0, (HL) 


7753 


CBCE 


01410 




SET 


1 , ( HL) 


775B 


D9 


01420 




EXX 




775C 


1803 


01430 




JR 


STAGE2 


775E 


3D 


01440 


BIT31 


DEC 


A 


775F 


28F5 


01450 




JR 


Z,SET1 


7761 


CD1177 


01460 


STRGE2 


CRLL 


CSCRN 


7764 


3D 


01470 




DEC 


fl 


7765 


3D 


01480 




DEC 


R 


7766 


200F 


0.1490 




JR 


NZ.BIT32 


7768 


2AF677 


01500 




LD 


HL,(W0RKR+8) 


776B 


CB56 


01510 




BIT 


2,(HL) 


776D 


280B 


01520 




JR 


Z,STRGE3 


776F 


D9 


01530 


SET2 


EXX 




7778 


CBD6 


01540 




SET 


2,(HL) 


7772 


CBDE 


01550 




SET 


3,(HL) 


7774 


D9 


01560 




EXX 




7775 


1803 


01570 




JR 


STRGE3 


7777 


3D 


01580 


BIT32 


DEC 


R 


777B 


23F5 


01590 




JR 


Z , SET2 


777F) 


CD2F77 


01600 


STAGE3 


CRLL 


LOSCRN 


777D 


3D 


01610 




DEC 


R 


777E 


3D 


01620 




DEC 


fl 


777F 


200F 


01630 




JR 


NZ.BIT33 


7781 


2AF677 


01640 




LD 


HL , ( WORKfl+8 ) 


7784 


CB66 


01650 




BIT 


4 , ( HL ) 


7786 


280B 


01660 




JR 


Z.BflCK 


7788 


D9 


01670 


SET3 


EXX 




7789 


CBE6 


01680 




SET 


4, (HL) 


778B 


CBEE 


01690 




SET 


5, (HL) 


77SD 


D9 


01700 




EXX 




778E 


1803 


01710 




JR 


BACK 


7790 


3D 


01720 


BIT33 


DEC 


A 


7791 


28F5 


01730 




JR 


Z.SET3 


7793 


D9 


01740 


BRCK 


EXX 




7794 


C9 


01750 




RET 




7735 


CB6B76 


01760 


ENTER 


CRLL 


START 


7798 


CD4777 


01770 


RGRIN 


CALL 


STAGE1 


779B 


D9 


01780 




EXX 




773C 


2AEE77 


01790 




LD 


HL,(WORKfl) 


779F 


23 


01800 




INC 


HL 


77R0 


22EE77 


01810 




LD 


(WORKfl),HL 


77A3 


2RF077 


01820 




LD 


HL,(W0RKA+2) 


77FI6 


23 


01830 




INC 


HL 
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77A7 22F077 
77AA 2AF277 
77AD 23 
77AE 22F277 
77B1 2AF477 
77B4 23 
77B5 22F477 
77B8 2AF577 
77BB 23 
77BC 22F677 
77BF 2AF877 
77C2 23 
77C3 22F877 
77C6 2nFfl77 
77C9 23 
77CA 22FA77 
77CD 2AFC77 
77D0 23 
77BI 22FC77 
77D4 2AFE77 
77B7 23 
77D8 22FE77 
77DB D9 
77BC 23 
77DD 0B 
77BE 78 
77DF Bl 
77E0 20B6 
77E2 21007C 
77E5 11003C 
77E8 010004 
77EB EDB0 
77ED C9 
3C56 
3C56 2A 
7C00 
00000 TOTAL 



01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
ERRORS 





MICRO-80 


LD 


( WORKA+2 ) , HL 


LD 


HL , ( WORKA+4 ) 


INC 


HL 


LD 


( WORKA+4 ) , HL 


LD 


HL,(W0RKA+6) 


INC 


HL 


LD 


( WORKA+6 ) , HL 


LD 


HL,(W0RKA+8) 


INC 


HL 


LD 


( WORKA+8 ) , HL 


LD 


HL, (WORKft+10) 


INC 


HL 


LD 


(WORKA+10),HL 


LD 


HL, (WORKR+12) 


INC 


HL 


LD 


(W0RKA+12),HL 


LD 


HL,(WORKFH-14) 


INC 


HL 


LD 


CW0RKA+14),HL 


LD 


HL,(W0RKA+16) 


INC 


HL 


LD 


(W0RKA+16),HL 


EXX 




INC 


HL 


DEC 


BC 


LD 


A,B 


OR 


C 


JR 


NZ, AGAIN 


LD 


HL.ST0RE2 


LD 


DE.3C00H 


LD 


BC.400H 


LDIR 




RET 




ORG 


3C56H 


DEFM 


' ***** GOOD LOAD ****** 


END 


ST0RE2 
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AGAIN 

BACK 

BIT31 

BIT32 

BIT33 

BOTTOM 

CSCAN 

ENTER 

HIRO 

HI5CAN 

LORO 

LOSCAN 

RSIDE 

SET1 

3ET2 

SET3 

STAGE1 

STAGE2 

STAGE3 

START 

STORE 1 

ST0RE2 

TEST0 



7798 
7793 
775E 
7777 
7790 
766B 
7711 
7795 
76C5 
76F9 
76D8 
772F 
76EB 
76F2 
7756 
776F 
7788 
7747 
7761 
777A 
766B 
7800 
7C00 
76B6 



01770 
01740 
01440 
01580 
01720 
00100 
01110 
01760 
00820 
01020 
00890 
01220 
00960 
00990 
01390 
01530 
01670 
01310 
01460 
01600 
00390 
00120 
00130 
00700 



TEST2 76BB 00749 

TEST4 76C0 00780 

TEXT 7C21 00300 

WORKA 77EE 00110 



02110 

01660 

01350 

01490 

01630 

00110 

01460 

00180 

01030 

01320 

01250 

01600 

01040 

01080 

01450 

01590 

01730 

01770 

01380 

01520 

01760 

00400 

00170 

00900 

01190 

00970 

00830 

01270 

00250 

00440 

00580 

00930 

01500 

01870 

01970 



01710 



00120 00130 00380 



01120 01230 
01180 01260 



01430 
01570 



00430 00490 00550 

00610 00630 00660 02120 02190 

00920 00940 01050 01090 01130 



01160 



01000 01070 01290 

00850 00870 01140 01170 01200 01240 



00460 00480 
00600 00820 
00960 00990 
01640 01790 
01880 01900 
01990 02000 



00500 00520 
00840 00860 
01060 01150 
01810 01820 
01910 01930 
02020 02030 



00540 
00890 
01280 
01840 
01940 
02050 



00560 
00910 
01360 
01850 
01960 
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2 GAME OF LIFE - BASIC LISTING 

5 CLS: INPUT "OPERATING SPEED (0) FAST (9) SLOW" ; Q: Q=Q*250 

10 REMEMBER THIS WAS THE POKE LINE 

Z0 CLS: PRINT" INITIAL PATTERN BY (O)PERATOR OR ( C )OMPUTER?" : D$=INKEY$: DS=" " 

30 D$=INKEY$: IFD$=" °THEN30ELSEIFD$="O"THEN50ELSEIFD$="C "THEN40EL.SE30 

40 F0RX=4ST068STEP2 : F0RY=15T024 : Z=RND( 03 ) : IFZ< >3THENNEXT : NEXT : GOTO200 : ELSESET ( X , 

Y ) : SETC X+ 1 , Y ) : SETC 127-X , Y ) : SETC 1 2S-X , Y ) : SET( X, 47- Y ) : SETC X+i , 47- Y ) : SETC 127-X, 47-Y 

) : SETC 126-X, 47-Y ) : NEXT : NEXT: GOTO200 

50 CLS: PRINT "CONTROL THE CELLS WITH THE FOLLOWING KEYS 

MOUE UP 
MOUE DOWN 
MOUE LEFT 
MOUE RIGHT 

51 PRINT "REPEAT 

EXECUTE ENTER NEWLINE" : DS=INKEY$: D$=- 

55 D3= " " : D*=INKEY« : IFDS= " " THEN55ELSECLS 

S0 Df =" " : D$=INKEY$: RESETC X, Y ) : RESETCX+1 , Y ) : IFDS=" "THEN150ELSEIFDS="S"THEN1S0EL3E 

Z=ASCCD$) 

70 IFZ=91THENY=Y-1:IFY<0THENY=0:GOTO150 

80 IFZ=10THENY=Y+1:IFY>47THENY=47:GOTO150 

30 IFZ=4STHENX=X+2: IFX>.127THENX=127: GOTO150 

100 IFZ=44THENX=X-2:.IFX<0THENX=0:GOTO150 

110 IFZ=13THENGOTO210 

150 SET(X,Y):SET(X+1,Y):GOTO60 

190 SET(X,Y):SETCX+1,Y):GOTO70 

200 PRINT@0,°ANY KEY WILL TERMINATE RUN. " : FORT-0TO2000: NEXT 

:PRINT@0, ""; :PRINTCHRS(28); : PRINTCHRSC 30 ) ; 

210 X=USR(0):DS=" " : DS=INKEYS: IFDS< >" "THEN10ELSEFORK=0TOQ: NEXT: GOTO210 



TRS-80 : 


SYSTEM- 80 


UP ARROW 


ESC 


DOWN ARROW 


CONTROL 


< 


< 


> 


>" 


S 




ENTER 


NEWLINE* : 



TENNIS (L2/4Km/l) by J. PINAKIS 

This program is an assembly language simulation of the popular video tennis game. It was originally 
written to demonstrate how many of the LEVEL II ROM routines can be used in a program to simplify 
development. Since the program was written with user modification in mind, as many comments as 
possible have been included. Due to buffer restrictions in the EDITOR/ASSEMBLER, many of the more 
recent sections of the program are uncommented but these will be explained later. 

LOADING 

The program will load into a Level II '80 with 4K or more memory. Using a suitable monitor or the 
editor/assembler, load in the Hex or source code. BMON is quite suitable for entering this program 
as it resides in a different memory location from the program itself. The machine language listing 
occupies the two left-hand columns in the main listing whilst the source code for an 
editor/assembler starts with the line numbers in column 3. 

If you are using a monitor, enter the EDIT or CHANGE MEMORY mode at 4A00H. Change this location to 

CD. The monitor will automatically advance to location 4A01 . Enter C9. At 4A02 enter 01, at 4A03 

enter CD and so on until you reach 4C7B which you should leave unchanged and exit the EDIT mode. 
Now, punch a SYSTEM tape using the following parameters:- 

START=4A00H END=4C7AH ENTRY=4A00H NAME TENNIS 

To load the program from tape:- 

1) Type SYSTEM. Press the ENTER or NEWLINE key 

2) The computer will respond with *? 

3) Type TENNIS. Press the ENTER or NEWLINE key 

4) The program will then begin to load. When it has loaded the computer will return with 
*? 

5) Type / . Press the ENTER or NEWLINE key and the program will begin to run. 



ISSUE 14 (JANUARY 1981 



MICRO-80 



PAGE 29 



'STEM 80 


DIRECTION 


ESC 


Move bat up 


CONTROL 


Move bat down 



USE 

Use of the tennis simulation is simple. After the "/" is typed in and ENTER/NEWLINE is pressed 
the program will commence by drawing a line down the centre of the screen along with some other 
information. This line represents the boundary of the tennis court. The game is played to the 
left of this line and scores are recorded to its right together with any necessary questions In 
the playing area, you will see a short line which lies just to the left of the main boundary This 
is your bat and can be moved up or down by simply depressing the appropriate key:- 

TRS-80 

UP ARROW 

DOWN ARROW 

Hold the key down until the bat reaches the desired position. The ball, (which appears as a single 
white dot) will begin at a random point on the extreme left of the playing area and will bounce up 
or down until it either reaches the end of the playing area or it hits the bat. If it hits the 
bat, it bounces off and one is added to the "HIT" score which is displayed on the right hand side 
of the boundary. If it reaches the end of the playing area, one is added to the "MISS" score and a 
new ball is served from a random location on the extreme left of the screen. Note that there is a 
short delay between missing a ball and another one being served and that durinq this delay the bat 
cannot be moved. a J 

SCORING 

You are allowed to miss twenty five balls before the "GAME OVER" message is displayed Your score 
is then the value which is displayed alongside the "HIT" message. Once the game is over you are 
asked to press either "ENTER" or "BREAK". If you press ENTER (or NEWLINE) the game will begin 
again and if you press BREAK the computer is returned to the READY mode in BASIC. 



PROGRAM DETAILS 

Tennis loads into memory from 4A00H to 4C7AH with an entry address of 4A00H. Most of the program 

has been commented. The uncommented sections will be explained here. 

The first of these is MESGES which is called during programme initialization. This displays 
messages MES1 to MES3 by setting up the HL and DE register pairs and calling a general purpose 
output routine. 

Next there is OVER which is jumped to by INCMIS after all 25 balls have been used. Upon entry, it 
POPS the return address off the stack which was placed there when the INCMIS routine is called by 
the SERVE routine. It then displays messages MES4 to MES8 in much the same way as MESGES does. 
The general purpose routine which is used by both MESGES and OVER is DISP. This prints the message 
pointed to by HL at the screen position in DE. This is accomplished by loading the cursor address 
(4020H) with the desired location and then using a ROM routine to output the message. Note that 
the message to be output must be terminated by a zero byte. 

The INPT routine simply waits until either the ENTER/NEWLINE key or BREAK key is pressed and then 
jumps to either INIT or reenters into BASIC at 6CCH respectively. 

VARIABLE TABLE 

These are the memory locations which are used to store certain values during program execution. 

XCOOR This is the X coordinate of the ball 

YCOOR This is the Y coordinate of the ball 

XINC This is the value which is added to the X coordinate each time the ball moves. 

YINC This is the value which is added to the Y coordinate each time the ball moves. 

BATLOC This location contains the bat's address in memory. 

HIT This is the number of times that the ball has been hit. 

MISS This is the number of times that the ball has been missed. 



As all the important values are stored in these locations, none of the Z-80 registers are used to 
store any values. This means that the user can use these registers with no fear of upsettinq any 
values. y 
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USER MODIFICATION . 

As mentioned previously, this program was written in such a way that it is able to be easily 
modified by the user. These are some tips and some more things you should know if you do wish to 
modify the program. The simplest of user modifications is the adjustment of game speed. If you 
think that the game is too fast or too slow, then you can simply adjust the value that is loaded 
into the BC register pair immediatly on entry to the DELAY subroutine. To make the game slower 
this value should be increased (try steps of about 300). To make the game faster this value should 
be decreased but not to less than about 700. Perhaps the more enterprising reader could write a 
routine which allows the player to choose between a number of set speeds, from the keyboard. 
Another simple modification is the ball angle. To adjust this, simply adjust the values in(XINC) 
and (YINC). The YINC value can be changed to any number but care should be taken in adjusting the 
XINC value for if it is wrongly adjusted the ball may pass straight through the bat. Again, the 
more advanced user might care to write a routine which sets the ball angle randomly or asks the 
player for a choice of high or low angles. While on the subject of random numbers. The reader is 
reminded that the subroutine GETRND will generate a random number between one and the value stored 
in the HL register pair and places the result in DE. 

Note that to use this routine in another program, the short routine INITRM must also be entered and 
run at some early stage in the user's program. This is because the random number generator needs 
the locations from 4090H to 4092H to be initialized because this contains the multiplicative 
mantissa constant used in the random number generator (well you wanted to know!). Perhaps this 
program could even be the basis for a larger two player game. YOUR SERVE !!! 



4A00 
4A00 
4A03 
4fi06 
4A07 
4A0A 
4R0D 
4R10 
4R13 
4R16 
4A19 
4R1B 
4R1C 



CDC901 

CD534B 

RF 

32104C 

32114C 

32164C 

32174C 

21203C 

22144C 

3EAA 

77 

CD444B 



4R1F 113040 
4R22 21F718 
4R25 012700 
4R28 EDB0 
4R2A CD274B 

4R2D CDGC4R 
4R30 CD834R 
4A33 CDB24R 
4R36 CD714R 



4R33 21124C 
4R3C 3R104C 
4R3F 86 



4R40 FE4B 
4R42 F21B4B 
4R45 FE00 
4R47 FRBF4B 
4R4A 32104C 

4R4D 21134C 
4R50 3R114C 
4R53 86 



4R54 
4R56 
4A59 
4R5B 
4R5E 
4R61 
4RB4 



FE2F 

F29D4R 

FE00 

FR9D4R 

32114C 

CD044B 

C32D4A 



00100 

00110 

00120 

00130 

00140 

00150 

001G0 

00170 

00180 

00190 

002B0 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00380 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 



; TENNIS SIMULATION 

; JAMES PINAKIS 

;3 RIUERVIEW COURT, 



; DALKEITH Wfl 

ORG 



INIT 



CALL 

CRLL 

XOR 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

CRLL 



; CLEAR SCREEN 

; DISPLAY MES1 & MES2 



3009. 
4R00H 
1C9H 
MESGES 
A 

(XCOOR),A . 
( YCOOR ) , R 
(HIT), A 
(MISS), ft 
HL.3C00H+32 
(BATLOC),HL 
A.0AAH ;BAT CHARACTER 
(HL),A ; DISPLAY BAT 
BORDER ;DRAW LINE DOWN SCREEN 



;BAT LOCATION 
;SAUE 



INITIALIZE RAM FOR RND FUNCTION 



INITRM 



INITi 



LD 

LD 

LD 

LDIR 

CALL 



DE.4080H 
HL.18F7H 
BC.39 

RANDOM ; RANDOM START LOCRTION FOR BALL. 

; ACTUAL PROGRAM STARTS HERE. 

LOOP CALL SET ; SET BALL LOCATION 
CALL. DELAY ;WAIT AWHILE 
CALL KBORRD ; TEST FOR BAT MOUEMENT 
CALL RESET ; RESET BALL LOCATION 

; INCX INCREMENTS THE X COORDINATE OF THE BALL BY THE 

; UALUE (XINC) 

INCX LD HL,XINC ;X INCREMENT LOCATION 

LD A,(XCOOR) ;PUT X COOR. IN R 
ADD A,(HL) ;ADD TO X COORDINATE 

; TESTX TESTS THE X COORDINATE TO SEE IF IT IS TOO LARGE 

; OR TOO SMALL. 

TESTX CP 75 ;END OF COURT? 

JP P, SERVE ;YES. SERVE NEW BALL 

CP ; HITTING WALL? 

JP M.FIXX1 ;YES. BOUNCE BALL 

LD (XCOOR),A ;X COOR. OK SO SAVE IT 



SAVX 
; INCY 
INCY 



INCREMENTS THE Y COORDINATE BY THE VALUE (YINC) 
LD HL.YINC ;Y INCREMENT LOCATION 
LD A, (YCOOR) ;Y COOR. TO A 
ADD A,(HL) ;ADD Y COOR TO A 
; TESTY TESTS THE Y COORDINATE TO SEE IF IT IS TOO LARGE 
; OR TOO SMALL. 
TESTY CP 47 ; BOTTOM WALL? 

P.FIXY ;YES SO BOUNCE. 
;TOP WALL? 
M.FTXY ;YES SO BOUNCE. 
(YCOOR), A ;Y COOR. 



SAVY 
CONT 



CP 

JP 

CP 

JP 

LD 

CALL 

JP 



OK SO SAVE IT. 



TEST 
LOOP 



;SEE IF THE BALL HIT THE BAT 
;DO IT ALL AGAIN 
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00630 


; SUBROUTINES 


CALLED BY MAIN ROUTINE BEGIN HERE. 






00640 


; THIS 


SUBROUTINE PERFORMS SET, RESET OR POINT 


4A67 


3E00 


00650 


POINT 


LD 


A,00H ;LOAD FLAG WITH UALUE FOR POINT 


4R69 


C3734R 


00660 




JP 


GRflFIX ;JUMP TO MRIN ROUTINE 


4RSC 


3E30 


00670 


SET 


LD 


R,30H ;LOAD FLAG WITH URLUE FOR SET 


4R6E 


C3734R 


00680 




JP 


GRAFIX ;JUMP TO MAIN ROUTINE 


4R71 


3E01 


00690 


RESET 


LD 


A,01H ;LOAD FLAG WITH UALUE FOR RESET 


4R73 


67 


00700 


GRAFIX 


LD 


H,A ;SAUE FLRG 


4R74 


3R104C 


00710 




LD 


A, (XCOOR) ;GET X COOR. 


4R77 


47 


00720 




LD 


B,fl ;SRUE X COOR. 


4R78 


3R114C 


00730 




LD 


fl,(YCOOR) ;GET Y COOR. 


4R7B 


E5 


00740 




PUSH 


HL ;SflUE FLAG TO STACK 


4R7C 


C5 


00750 




PUSH 


BC ;SAUE X COOR. 


4R7D 


218CJL8 


00760 




LD 


HL,188CH ; POINT TO DUMMY STRING 


4R80 


C35001 


00770 




JP 


150H ;TO GRAPHICS ROUTINE 






00780 


; DELRY 


SIMPLY 


EXECUTES A SHORT PAUSE AND THEN RETURNS. 


4R83 


01D007 


00790 
00800 


DELRY 


LD 


BC.2008 ;TO MAKE GAME SLOWER INCREASE 
THIS VALUE 


4R86 


CD6000 


00810 




CALL 


60H 


4R88 


C9 


00820 




RET 








00830 


; FIXX 


WILL SUBTRRCT THE X INCREMENT FROM THE X COOR. 






00840 


; AND NEGRTES 


THE X INCREMENT SO THAT THE BALL BOUNCES. 


4R8R 


3R104C 


00850 


FIXX 


LD 


A , ( XCOOR ) ; GET X COORDINATE 


4R8D 


21124C 


00860 




LD 


HL.XINC ;GET LOCATION OF X INCREMENT 


4R90 


96 


00870 
00880 




SUB 


(HL) ; SUBTRACT THE X INCREMENT FROM 
THE X COORDINATE. 


4R31 


32104C 


00890 




LD 


(XCOOR), A ;SAUE IT. 


4R94 


3R124C 


00900 




LD 


A,(XINC) ;GET X INCREMENT 


4R97 


ED44 


00910 




NEG 


; NEGATE IT. 


4RS9 


32124C 


00920 




LD 


( XINO.fi ;PUT IT BACK. 


4R9C 


C9 


30930 




RET 








00940 


; FIXY 


DOES THE SAME TO THE Y COORDINRTE RS FIXX DID TO 






00950 


; TO THE X COORDINRTE. 


4R9B 


3R114C 


30960 


FIXY 


LD 


A.(YCOOR) 


4RR0 


21134C 


00970 




LD 


HL,YINC 


4RR3 


96 


00980 




SUB 


(HL) 


4AA4 


32114C 


00990 




LD 


( YCOOR ) , A 


4RR7 


3R134C 


01000 




LD 


fl,(YINC) 


4RRR 


ED44 


01010 




NEG 




4RRC 


32134C 


01020 




LD 


(YINO.fl 


4RRF 


C3614R 


01030 




JP 


CONT 






01040 


; KEOfiRD SCANS 


THE KEYBOARD FOR THE UP RRROW AND DOWN 






01050 


; ARROW 


KEYS. 




4RB2 


3R4038 


01060 


KBORRD 


LD 


A,(3840H) ; LOCATION OF RRROW KEYS 


4RB5 


B7 


01070 




OR 


R ;KEY PRESSED? 


4RB8 


C8 


01080 




RET 


Z ; NO . . . RETURN 


4RB7 


FE08 


01090 




CP 


8 ;UP RRROW? 


4RB9 


CRC24R 


01100 




JP 


Z, MOUUP ;YES...MOUE BRT UP. 


4RBC 


FE10 


01110 




. CP 


16 ; DOWN ARROW? 


4RBE 


CRE34R 


01120 




JP 


Z.MOUDN ;YES...MOUE BAT DOWN. 


4RC1 


C9 


01130 




RET 








01140 


; MOUUP 


MOUES 


THE BAT UP THE SCREEN 


4RC2 


3E20 


01150 


MOUUP 


LD 


A,20H ; ASCII FOR SPRCE. 


4RC4 


2R144C 


01160 




LD 


HL.(BflTLOC) ; GET BRT LOCATION. 


4RC7 


77 


01170 




LD 


(HL),A ; ERASE OLD BAT. 


4RC8 


114000 


01180 




LD 


DE.64 DECREMENT UALUE 


4RCB 


B7 


01190 




OR 


A ; CLEAR CARRY 


4RCC 


ED52 


01200 




SBC 


HL.DE ; SUBTRRCT 64 FROM BRT LOCATION 


4RCE 


11003C 


01210 




LD 


DE.3C00H ; START OF SCREEN 


4RD1 


CD390R 


01220 
01230 




CRLL 


0R39H ;CP HL&DE 

THE FLAGS. 


4RD4 


FCDE4R 


01240 




CALL 


M, TOOSML ;S FLAG SET IF HL< DE 


4RB7 


22144C 


01250 




LD 


(BATLOC),HL ; SAUE NEW BAT LOCATION 


4RDR 


3ERR 


01260 




LD 


A,0ARH ;BAT CHRRRCTER IN RSCII 


4RDC 


77 


01270 




LD 


(HL),fl ;T0 DISPLAY 


4RDD 


C9 


01280 




RET 








01290 


; THIS 


SUBROUTINE IS CALLED IF HL IS SMRLLER THAN 3C00H 


4RDE 


114000 


01300 


TOOSML 


LD 


DE,64 ; INCREMENT UALUE 


4RE1 


19 


01310 




ADD 


HL.DE ;ADD TO WRONG BAT LOCATION 


4RE2 


C9 


01320 




RET 








01330 


; MOUDh 


MOUES 


THE BAT DOWN THE SCREEN 


4RE3 


3E20 


01340 


MOUBN 


LD 


A.20H ; RSCII BLRNK 


4RE5 


2R144C 


01350 




LD 


HL.(BATLOC) ; OLD BAT LOCATION 
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4AES 
4AE9 
4AEC 
4RED 
4RF0 
4AF3 
4RF6 
4RF3 
4RFB 
4RFC 



77 

114000 

19 

11FF3F 

CD390R 

F4FD4R 

22144C 

3ERR 

77 

C9 



4RFD B7 
4RFE 114000 
4B01 ED52 
4B03 C3 



4B04 
4B06 
4B09 
4B0A 
4B0D 
4B10 
4B11 
4B13 
4B14 
4B17 
4B1R 



3ERR 
2R144C 
77 
CD674R 

CD052B 

7B 

FE00 

C9 

CDGF4B 

CD8R4R 

C9 



4B1B CD7E4B 
4B1E 010000 
4B21 CD6000 
4B24 C32A4A 

4B27 2.12F00 
4B2A CD374B 
4B2D 7B 
4B2E 32114C 
4B31 3E00 
4333 32104C 
4B36 C9 



4B37 CD9R0R 
4B3A CDC314 
4B3D CD7F8R 
4B40 CB052B 
4B43 C3 

4B44 21263C 
4B47 0G10 
4B43 3E95 
4B4B 114000 
4B4E 77 
4B4F 19 
4B50 10FC 
4B52 C3 



4B53 
4B56 
4B59 
4B5C 
4B5F 
4B62 
4B65 
4B63 
4E6B 
4BGE 



21134C 
116E3C 
CDC54B 
21244C 
11EE3C 
CDC54B 
212R4C 
116E3D 
CDC54B 
C3 



4B6F 3R1G4C 
4B72 3C 



01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
91521 
01522 
01523 
01530 
01540 
01550 
015G0 
01570 
01580 
01590 
01600 
01610 
01620 
01G30 
01640 
01G50 
0.1660 
01G70 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
017G0 
01770 
01780 
01798 
01800 
01810 
01320 
01330 
01340 
01850 
01860 
01370 
01880 
01890 
01300 
01910 
01920 
01930 
01840 
01350 
01960 
01370 
01380 
01890 
02000 
02010 
02020 
02030 
02040 
02050 
02060 



LD (HD.fl ; ERASE OLD BAT 

LD DE.64 INCREMENT UALUE 

RDD HL.DE ; RDD DE TO HL 

LD DE,3FFFH ; END OF UIDEQ SCREEN 

CALL 0R39H ; COMPRRE HL RND DE 

CRLL P,TOOBIG ;5 FLRG RESET IF HL<DE 

LD (BRTLOC),HL ; SRUE NEW BRT LOCflTION 

LD R,0RRH ;BRT UfiLUE IN ASCII 

LD (HL),R ; DISPLAY IT. 

RET 

; THIS SUBROUTINE IS CRLLED IF HL IS LRRGER THAN 3FFFH 

TOOBIG OR R ;CLERR CRRRY 

LD DE.64 DECREMENT URLUE 
SBC HL.DE ; SUBTRACT DE FROM HL 
RET 

; TEST SEES IF THE BRLL HRS HIT THE BAT RND INCREMENTS 
CORE AMD BOUNCES THE BALL ACCORDINGLY. 



POINT 
2B05H 
A,E 



; THE HIT 
TEST LD 

LD 

LD 

CALL 

CALL 

LD 

CP 

RET 

CALL 

CALL 

RET 
; SERUE INCREMENTS THE MISS UALUE AND DOES A SHORT DELAY 
; BEFORE SERUING ANOTHER BALL. 
SERUE CALL INCMIS ; INCREMENT MISS UALUE 

LD BC,0 ;SET DELAY UALUE 

CALL 60H ;D0 DELAY 

JP INIT1 ; SERUE BALL 
; RANDOM ESTABLISHES A RANDOM START LOCRTION FOR NEW BRLL 



R,0flAH ; REDRAW BAT 

HL.CBATLOC) 

( HL ) , A 

; IS BRLL LOCRTION SET? 

;LORD RESULT OF TEST INTO DE 

;LOAD RESULT INTO R 

;SET? 

; NO . . . RETURN 

; YES. . .INCREMENT HIT URLUE 

;AND BOUNCE BRLL OFF BRT 



Z 

INCHIT 
FIXX 



;MRXIMUM Y UALUE 
;GET RANDOM NUMBER 
; RANDOM NUMBER TO R 

;PUT IT IN Y COORDINATE 
; FIRST X LOCATION 

:PUT IT IN X COORDINATE 



RRNDOM LD HL.47 
CALL GETRND 
LD fl,E 
LD CYCOOR),A 
LD fl,0 
LD ( XCOOR ) , R 
RET 
GETRND GENERATES A RANDOM NUMBER BETWEEN 1 AND THE URLUE 
IN THE HL REGISTER PAIR. THE RESULT IS PLACED IN THE 
DE REGISTER PAIR. 

;SAUE HL IN ACCUMULATOR 
; GENERATE RANDOM NUMBER 
;CONUERT TO INTEGER 
PUT ACCUMULATOR IN DE 



GETRND 



CRLL 
CRLL 
CALL 
CRLL 
RET 
BORDER DISPLAYS THE LINE DOWN THE CENTER OF THE SCREEN 



0A9RH 
14C9H 

0R7FH 
2B05H 



BORDER 



HL.3C00H+33 



; START LOCATION ON LINE 



LOOP! 



B, IS 

A,35H 

DE,64 

( HL) , A 

HL.DE 

L00P1 



; NUMBER OF LINES OF SCREEN 

; DISPLAY BYTE 

; INCREMENT UALUE 

; DISPLAY BYTE 

;ADD INCREMENT TO SCREEN LOCATION 

; REPEAT 15 TIMES 



LD 

LD 

LD 

LD 

LD 

ADD 

DJNZ 

RET 
; MESGES DISPLAYS MESSAGES 1,2 AND 3 AT SET LOCATIONS 
MESGES LD HL,MES1 

LD DE, 15470 

CRLL DISP 

LD HL.MES2 

LD DE, 15538 

CALL DISP 

LD HL.MES3 

LD DE, 15726 

CALL DISP 

RET 
; INCHIT INCREMENTS THE NUMBER OF TIMES THAT THE BALL 
; WAS HIT AND DISPLAYS IT. 
INCHIT LD A, (HIT) ; GET OLD HIT UALUE 

INC A ; INCREMENT 
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4B73 
4B74 
4B77 
4B7A 
4B7D 



4B7E 
4B81 
4B82 
4B83 
4B8G 
4B39 
4B8C 
4B8F 
4B31 
4B94 



4B95 
4B98 
4B99 
4B9A 
4B9B 
4B9C 
4B9D 



4B9E 
4B9F 
4BR1 
4EA4 
4BA5 
4BR6 
4BA8 
4BAA 
4BAC 
4BFiE 
4BB0 
4BB3 
4BB4 

4BB5 
4BB7 
4BBR 
4BBC 
4BBE 
4B3F 
4BC2 

4BCS 
4BC9 

4BCC 

4BCD 
4BCE 
4BD1 
4BD4 
4BD7 
4BDR 
4BDD 
4BE0 
4BE3 
4BEB 
4BE9 
4BEC 
4BEF 
4BF2 
4BF5 
4BF8 
4BFB 
4BFE 
4BFF 
4C01 



27 

32164C 

21F33C 

CD954B 

C9 



3R174C 

3C 

27 

32174C 

21753D 

CD9543 

3R174C 

FE25 

CRCB4B 

C9 



CD9E4B 

78 

77 

79 

23 

77 

C9 



47 

E60F 

CDB54B 

4F 

78 

EBF0 

CB3F 

CB3F 

CB3F 

CB3F 

CDB54B 

47 

C9 

FE0R 

DRBC4B 

C607 

C630 

C9 

CD8R4R 

C34D4R 

ED532040 

CDR728 

C9 

El 

21324C 

11EE3D 

CDC54B 

21444C 

11RE3E 

CDC54B 

21554C 

11EE3E 

CDC54B 

21G04C 

I16E3F 

CDC54B 

21714C 

11RE3F 

CDC54B 

3R4038 

B7 

28FR 

FE01 



02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02595 
02596 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02748 
02750 
02760 
02770 
02780 



DflR 

LB CHIT), ft 

LB HL, 15603 

CALL BI5SCR 

RET 
INCMIS INCREMENTS THE NUMBER OF TIMES THAT THE BRLL 
WRS MISSED RND DISPLRYS IT. 



; ADJUST FOR BCD 

; STORE NEW HIT VALUE 

; LOCATION TO DISPLRY RT 

; DISPLAY HIT VALUE 



INCMIS LD A, (MISS) 

INC fl 
BRR 

LD (MISS),fl 

LD HL, 15733 

CRLL DISSCR 

LD A, (MISS) 

CP 25H 

JP Z,OVER 
RET 

; DISSCR DISPLAYS THE UALUE 



;GET OLD MISS UALUE 

; INCREMENT IT 

; ADJUST FOR BCD 

;SRVE NEW SCORE 

; LOCATION TO DISPLAY RT 

; DISPLAY SCORE 

;NO. OF BALLS 



IN 



LOCATION CONTAINED IN THE HL 



DISSCR 



CONV 

A,B 

( HL) , A 

A,C 

HL 

C HL ) , A 



CRLL 

LD 

LD 

LD 

INC 

LD 

RET 
CONV CONVERTS THE VRLUE IN THE A REGISTER 
RSCII DIGITS IN THE BC REGISTER PAIR. 



THE REGISTER A AT THE 

REGISTER PAIR. 
; CONVERT TO 2 DIGITS IN BC PAIR 
; DIGIT 1 TO A 
; DISPLAY IT 
; DIGIT 2 TO A 
;NEXT LOCATION 
; DISPLAY IT 



TO TWO 



CONU 



; C0NV2 
C0NV2 



C0NV3 



FIXX1 



LD 

AND 

CALL 

LD 

LD 

RND 

SRL 

SRL 

SRL 

SRL 

CALL 

LD 

RET 

CONVERTS 

CP 

JP 

ADD 

ADD 

RET 

CALL 

JP 



B,R 

0FH 

C0NV2 

C,fl 

R,B 

0F0H 

fl 

R 

A 

A 

C0NV2 

B,A 

THE A 
0AH 

CC0NV3 
A, 7 
A,30H 



;SAVE A 

;MASK OUT BITS 4-7 

; CONVERT A TO ASCII 

;PUT RESULT IN C REGISTER 

; RETRIEVE A 

;MASK OUT BITS 0-3 

; BRING BITS 4-7 INTO BITS 0-3 



; CONVERT A 
;SAVE TO B 



TO ASCII 



REGISTER TO ITS ASCII EQUIVILENT 
; IS CHARACTER >=A 
;NO. .JUMP TO C0NV3 

; ADJUST FOR ALPHABETIC CHARACTERS 
; CONVERT TO ASCII 



FIXX 
INCY 

;DISP DISPLAY MESSAGE POINTED BY HL AT DE 
DISP LD C4020H),DE 
CALL 28R7H 
RET 
; OVER DISPLAYS MESSAGES 4-8 RND RWAITS INPUT 
OVER 



INPT 



POP 


HL 


LD 


HL.MES4 


LD 


DE, 15854 


CALL 


DISP 


LD 


HL.MES5 


LD 


DE, 16046 


CRLL 


DISP 


LD 


HL,MES6 


LD 


DE, 16110 


CALL 


DISP 


LD 


HL.MES7 


LD 


DE, 16238 


CALL 


DISP 


LD 


HL , MES8 


LD 


DE, 16302 


CALL 


DISP 


LD 


A, C 14400) 


OR 


A 


JR 


Z.INPT 


CP 


1 



J 
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4C03 CA004A 
4C06 FE04 
4C08 20F1 
4C0R CDC901 
4C0D C3CC0G 
4C10 00 
4C11 00 
4C12 01 
4C13 01 
4C14 0000 
4C. IS 00 
4C17 00 
4C18 54 
4C23 30 
4C24 48 
4C23 00 
4C2F1 4D 
4C31 00 
4C32 2A 
4C43 00 
4C44 50 
4C54 00 
4C55 50 
4C5F 00 
4CS0 50 
4C70 00 
4C71 54 
4C7A 00 
4A00 
00000 TOTAL 



02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02300 
02310 
02920 
02930 
02940 
02950 
02963 
02970 
02980 
02330 
03000 
03010 
03020 ' 
03030 
03040 
03050 
030G0 
03070 
ERRORS 



XCOOR 

YCOOR 

XINC 

YINC 

BATLOC 

HIT 

MISS 

MES1 

MES2 

MES3 

MES4 

MESS 

MES6 

MES7 

MES8 



JP 

CP 

JR 

CALL 

JP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFW 

DEFB 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

END 



Z,INIT 

4 

NZ,INPT 

1C3H 

6CCH 





1 

1 








;X COORDINATE 

;Y COORDINATE 

;X INCREMENT UALUE 

;Y INCREMENT UALUE 

;BAT LOCATION 

;HIT SCORE INITIAL UALUE 

;MISS SCORE INITIAL UALUE 

; 1 SPACE BETWEEN LETTERS 



'TENNIS' 



' HITS:' 


' MISSES:' 



' *** GAME OUER ***' 



' PRESS < ENTER > TO' 



' PLAY AGAIN' 



' PRESS < BREAK > TO' 



' TERMINATE' 



INIT 



BATLOC 

BORDER 

CONT 

CONU 

CONU2 

C0NU3 

DELAY 

DISP 

BISSCR 

FIXX 

FIXX1 

FIXY 

GETRND 

GRAFIX 

HIT 

INCH IT 

INCMIS 

INCX 

INCY 

INIT 

INIT1 

INITRM 

INPT 

KBOARD 

LOOP 

LOOP1 

MES1 

MES2 

MES3 

MES4 

MES5 

MES6 

MES7 

MES8 

MESGES 

MISS 

MOUDN 

MOUUP 

OUER 

POINT 

RANDOM 



11420 01522 



4C14 028S0 00230 01160 01250 01350 

4B44 01840 00260 

4A61 00610 01030 

4B9E 02350 02260 

4BB5 02490 02370 02450 

4BBC 02520 02500 

4A83 30790 00350 

4BC5 02570 01S50 01980 02010 02620 02650 02680 

02740 

4B95 02260 02100 02190 

4A8A 00S50 01590 02540 

4BBF 02540 00480 
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4A73 00700 00660 00680 
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4A1F 00230 
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4A2D 00340 00620 
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4C18 02910 01930 

4C24 02930 01960 

4C2A 02950 01990 

4C32 02970 02600 

4C44 02990 02630 

4C55 03010 02660 

4C60 03030 02690 

4C71 03050 02720 

4B53 01330 00160 

4C17 02900 00210 02140 02170 02200 

4AE3 01340 01120 

4AC2 01150 01100 

4BCD 02596 02220 

4A67 00650 01530 . 

4B27 01680 00320 
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**** NEXT MONTH'S ISSUE**** 

Next months issue will contain at least the following programs plus the usual features, articles, 
news, letters, etc.. 



** KEYNOTE (L1/4K) ** 
An educational game in which the computer draws 
musical notes on the screen and you have to 
identify them. A great help for someone just 
learning music. 



** PINBALL MACHINE (L1/4K) ** 
This is one pinball machine that you can't 
tilt! If only you could find a way to charge 
20c for 5 shots, this program would make your 
fortune. 



** TBUG2 (L2.ml) ** 
A nice modification to the TANDY TBUG program 
that gives a full screen width dump of memory 
to the M command and has a user control ed 
stop/start scrolling action as well. Don't be 
misled, we are not publishing the TBUG program 
itself, just the modifications. 



** MICROHEX (L2/4K) ** 
Converts a Decimal number to Hex, Hex to 
Decimal, lets the user input the Decimal 
address to be jumped to in a USR call and 
decodes it down into the values to be poked as 
MSB and LSB and lets the user input Memory 
usage and tells him what to poke into the 
variable pointers when chaining programs. It's 
all done in under 2K of basic so that you can 
see how it's done as well. 



** MURDER (L2/16K) ** 
Detective type game in which you have to puzzle 
out who killed who with what, when and where. 
But there is one small catch, (pun intended) 
when you catch him/her, they are liable to 
fight back. Complete with graphic floor plans 
of each floor showing you and the other 
occupants. 



** ASTRONOMY (L2/16K) ** 
If you are interested in Astronomy you will 
find this program very useful. Here are just 
some of its features. . .Time conversions, 
co-ordinate conversions, precession, solar 
calculations, solar elongations, planetary 
calculations, lunar calculations. .etc 
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***** CASSETTE EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette. All 
cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded on Side 
1 of the cassette and Level I programs on Side 2. All programs are recorded twice in succession. 
The rates for a cassette subscription are printed on the inside front cover of each issue of the 
magazine. 



I.D. 



APPROX. START POSITION 
CTR-41 CTR-80 SYS 80 



SIDE 1 
C WORD 

CHESS BOARD 

CELLAR CONTROL 

LIFE (ml.) 

LIFE (BASIC) 

LIFE (Source) 

TENNIS (ml.) 

TENNIS (Source) 



L2/4K 

L2/16K 

L2/16K 

SYSTEM 
MEM SIZE 

L2/16K 
EDTASM 



L2/4K 
SYSTEM 

EDTASM 



LIFE 
30314 



LIFE 
TENNIS 
TENNIS 



10 
32 


7 
22 


5 
15 


53 
103 


36 
70 


25 
50 


150 
180 


102 
122 


70 
85 


205 
215 


140 
146 


100 
103 


227 
240 


154 
162 


108 
113 


250 
280 


170 
192 


120 
135 


310 
320 


212 
218 


148 
153 



330 



223 



156 



SIDE 2 



SHOOTING GALLERY 



MATURITY TEST 



L1/4K 
Ll/4k 



45 
103 

160 
215 



30 
70 

108 
145 



A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES ! ! ! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 



TANPY 



9>4n 



to CONQUEST ELECTRONICS Ry. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

QTY. CAT NO DESC. 



ADV. PRICE 



SUB TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



.P/Code 



CONOUHT ELECTMNKf 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 




MANUAL 






by Edwin Paay 

Published by MICRO-80 PRODUCTS 






Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the * 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

■ 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 



